-«cy^x
1RES
PROGRAMMEZTRANQUIULEMENT
AVEC NOUS !
8 =
L O
■■
UAA
Distributeur i
, . Utilitaires graphiques • Gestian de tichiers
| . Tasword • Tasprint • Tas-Sign • Masterf.le
Documentation, renseignements
..««m rflUSEILLES-Mlf** 5044 02 44 m.» 440BW I
1-1283 LA PLAINE TEL 19 41 22 54 II TO
s: : s:ïï:^ ^ ~ s - m ° 2 ' 512 24 28
D
M
erreurs
Il est difficile de taper un programme
d'une revue sans commettre d'er-
reurs ! Quand les erreurs sont signa-
lées (Syntax error in..., Line does not
exist in...), la correction est facile puis-
que la ligne est indiquée, mais
lorsqu'au "point de vue" du CPC, le
programme est correct, il peut en être
tout autrement pour le lecteur :
Si le fonctionnement du programme
ne correspond pas vraiment au pro-
gramme original, alors il est impossi-
ble de retrouver l'erreur commise, à
moins de comparer les lignes de votre
programme avec celles du journal
mais c'est très long et on risque de pas-
ser sur une erreur sans la voir.
C'est pourquoi ce programme a été
créé ; il est à utiliser si vous ne retrou-
vez pas vos erreurs.
La frappe d'un programme de votre
journal favori (CPC) terminée, vous
faites "RUN" et là, vous corrigez tou-
tes les erreurs signalées par le CPC en
vous référant au journal pour compa-
rer. Si, malgré cela, il ne tourne tou-
jours pas, suivez cette procédure :
— sauvez votre programme en ASCI 1
grâce à l'instruction : Save "nom
prog", A.
Puis, si vous êtes sur K7, rebobinez la
bande jusqu'au début du fichier ;
— chargez Anti-Erreurs ;
— entrez le nom de votre programme
et insérez le support où il se trouve (K7
ou disquette).
Après quelques secondes, les numéros
de ligne vont défiler. Vous remarque-
rez qu'à chaque ligne correspond un
code de 2 lettres sous cette forme :
>XX< ; c'est le code qui va vous
permettre de savoir d'où proviennent
les erreurs. Pour cela, il faut que vous
compariez les codes du journal à ceux
de l'écran. Si un code diffère, notez
sur papier le numéro de ligne qui cor-
• Grégory NO£
respond à ce code. Continuez ainsi
jusqu'à la fin du listage.
Le défilement terminé, recherchez
votre programme et corrigez les lignes
que vous avez notées en comparant
avec le journal. Faites "RUN" et ô
miracle ! ça marche.
Attention, lors de la frappe du pro-
gramme à traiter, n'omettez aucun
caractère (sauf les espaces) car Anti-
Erreurs les prend en compte et bien
sûr, ne tapez pas les codes de contrôle.
« •
» ANTI - ERREURS «
I #
♦ VERSION 2.0 *
# •
90 le) CPC il G. NÛE 1987
1»
ne
12e ' >»»»»»»»»»»»»»
13» '< INITIALISATION >
14e ' <«««««««««««««
15» '
16* ON ERROR GOTO 1250
170 MODE 2
1» DIB B* (23)
198 FOR 1=9 T0 22:READ G»:6*(I)=6$:
NEXT
2» ATTENTION LA LIGNE DE DATA CI- ,-RC
DESSOUS NE CONTIENT PAS TOUTES LES
LETTRES DE L ALPHABET I! 1
21» DATA A.B.C.D,E.F,G,H,J.r-.L.M.N. >AD
P,Û.R,T.U,V.W,X,r,Z
220 ANTi-BUG FICHIER 'RE
230 IF PEEK(HIHBM)=255 THEN 280 ;ZB
24ti ÛPENOUT "CFC" MA
250 MEMOfif HIMtM-2 >NX
260 CLOSEOUT ,-RJ
270 POKE H1MEM+1.255 >PP
280 DEFINT B-Z >W
290 >TB
300 BORDER 6:INK 0.1:11» 1,16:PEN 1 ,'JN
: PAPER
310 M0VE 0.1o:DRAH 650.16 >TK
320 PRINT TAB(27i "A N T I - E R R >GU
E U R S ,, :CHR*t24i:" u ersion i.o"
;CHR$l24i
330 MÛVE 0.385: DftAtl 650,385 ,'UJ
340 L0CATE 24,25:PRINT"CPC REVUE DE ,'EV
S STANDARDS AMSTRAD"
350 HINDOU 1.80.3.23 >NL
360 M*="ReaIise car crsqory NÛE" M
370 F$="" >Xfl
380 FOR 1=1 TÛ LENtMtj /PU
390 F*=F*+MIDI(M*.I,1; /PL
400 L0CATE 70-I.5:PRINT F* ,UL
410 FOR T=l T0 100 'LO
420 NEXT 1 , 1 ,'EF
430 ' >RH
440 ' t##tHHHHHHHHHHHHHHHHHHHHHHHHW >RJ
450 >Rli
460 L0CATE 2,1:PRINT"ENTREZ LE NOM >XT
DU FICHIER : ":
470 INPUT "\NF$ ,'FD
480 IF NF$="" THEN PRINT CHR«(7!:60 /GR
T0 460
490 L0CATE 2,3:PRINT"IMPRIMANTE OU >VR
ECRAN Il/Et?"
500 R»="":WHILE R*="":R»=UPPER»(INK >NK
EY»):WEND
510 IF R$="I" THEN CA=8:PRINT"BRANC >XD
HEZ-LA..." ELSE 540
520 PRINTI8.CHR»l27)-, , "";CHR«(20l :>AR
530 GOTO 560 ,'ZF
540 IF R$="E" THEN CA=0:G0TD 560 >VÛ
550 GOTO 500 >ZB
560 CLS:L0CATE 2,3:PRINT"TANT QUE L >0R
E LISTAGE N'EST PAS TERMINE"
570 LOCATE 2,'5:PRINT"NE PAS ARRETER ;>JW
LE MAGNETOPHONE OU NE"
580 LOCATE 2,7:PRINT"PAS SORTIR LA >TL
DISQUETTE"
590 LOCATE 2,10:PRINT"PRESSEZ UNE T >HH
0UCHE POUR LA LECTURE"
600 CALL MB05 >LH
610 ' >RH
620 ' <««««««««««« >RJ
436 '< TRAITEMENT DU FICHIER > >RK
646 ' »»»»■>»»»»»»» >TA
650 >TB
660 OPENIN "!"*NFS >LF
670 CLS:PRINT"TRAITEMENT EN COURS.. >JR
68e IF LEN(A*>=255 THEN A»="":LINE >YH
INPUT#9.B»:GOTO 1140
690 LINE INPUT#9,6*:A*=B$ ,>UE
7êe IF CA08 THEN GOSUB 1318 >VF
716 IF INKEY (441=0 THEN STOP /m
72» >RK
73e ■ CALCUL DE LA CLE DE CONTRÛ >TA
LE
740 ' >TB
759 S"0!FLB=0 'MB
76e FOR 1=1 TO LENiA») >PH
770 L$=HID$<A$, 1,11 >NU
78« IF LKHRK34) AND FL6=1 THEN F >PC
LS=0: BOTO 848
79e IF L*=CHR$(34) AND FLS=e THEN F >PD
L6-1:80T0 m
8ee IF L*=CHR*<32) AND FLBOl THEN >CX
850
81» IF L$=CHR»(39) AND FLG=e THEN >CA
6é
82e IF FLS=1 THEN 848 >ND
83» L*=UPPER*(L$,' >MC
84e A=A+ASC(L»)+I ,'LU
85e NEXT I >PB
866 '
B7ë CH»=STR*(A)
886 CH»=RI6HT*(CH»,LEN(CH*)-1I
89e L=LEN(CH»l:L2=LEN(CH»!/2
900 A=VAL(LEFT*(CH$,L2i)
91ë C=INT(A/23)
92e P=A-(C*23)
930 C$=G»(P)
94e A=VAL(RIGHT»<CM.L-L2ij
95e C=INT(A/23):P=A-(C»23>
949 C$=C$+6*(P)
97ê
96ê FOR 1=1 TO 6
99e L*=MD*iA*,I,l)
îeee if L$;."e" or t*>"9" then 1030
1010 LI$=LI$+Lt
lë2e NEXT
1030 VH$="":FOR 1=1 10 LEN(A*i:IF A
SC(MID*(A*,I.1)K32 THEN VI1$=VM*+"
" ELSE VM*=VM*+MI D* l A* . 1 , 1 )
1040 NEXT I : Bt=VM*
1050
i960 IF M<>8 THEN 1070 ELSE 1090
1070 PRINT LI*;TAB(lê) ";>":C*
1080 LI*= SOTO 1140
1090 LI*="":PRINT#CA,LEFT*t6*,55):T
AB(57) ")";C$
liée IF LEN(B»)<55 THEN 116e
me FG=1
112e B*=MD*lB»,56,LENlB*i'
1130 PRINT#CA,LEFT*(Bi.55l '(*
1140 IF FG=1 AND CAo8 THEN FG=ë:GO >VB
SUS 13ie:60TO 1150
1150 60TO 1100 >L6
1160 IF E0F=-1 THEN CLOSEIN ELSE 60 >HD
TO 68ê
1170 IF CA=e THEN CALL MB03:PRINT >RJ
TAB(5èl CHR*i24);"UNE TOUCHE. .. ";CH
R«(24):CALL IBB03
llBé CLS:PRINT"I1AINTENANT RECHARGEZ >JC
";NFti" ET CORRIGEZ LES LIGNES QUE
VOUS AVEZ NOTEES. . "
1190 END >YK
1200 ' >XF
1210 ' <«««««««««««« >X6
1220 < TRAITEMENTS DES ERREURS > >XH
1230 ' «««««««««<««« >XJ
1240 >XK
1250 IF ERR=25 THEN CL5:PRINT CHRtt >¥C
7)iCHR*i24ls"FICHIER NON ASCII":»;
$(24):END ELSE CONT
1240 >YB
1270 <«««««««««««« >¥C
1280 < ATTENTE TOUCHE. . . > ,>YD
1290 * <«««««««««««« >YE
1300 )XG
1310 CÛtt=COM+l:IF C0NM9 THEN CALL ,'AF
&BEtl33:FRINT TABI50) "UNE TOUCHE..."
:CALL 4BB05:CLS:COM=1
132» RETURN >EK«
UN
NUMERO
HORS
SERIE
GRATUIT
TOUS
LES
DEUX
MOIS
4 REVUES POUR LES PASSIONNES
CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece-
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous
recevrez gratuitement 1 n° hors-série tous les deux mois.
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes,
des articles I A la demande de nos lecteurs, nous prenons désormais les abonnements.
PCompatlbies MAGAZINE : la référence en matière d'initiation et de perfectionne-
ment sur les "compatibles PC".
Attention, tous nos abonnés reçoivent avant parution des souscriptions sur les nouveaux
livres I
ATTENTION I II n'y a pas d'abonnement rétroactif.
□ CPC AMSTRAD 1 1 numéros 220 F
□ 6 numéros 120 F
□ AMSTAR 11 numéros 140 F
□ PCompatibles Magazine 1 1 numéros 200 F
□ Arcades 1 1 numéros 200 F
NOM
Adresse -
Prénom _
Code postal .
Date-
Ville
Signature -
Je m'abonne à :
Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM.
Service Abonnement - BP 1 1 - 351 70 BRUZ - Retournez le(s) bulletin(s) ou une photocopie.
CPC HS9
A
B
O
N
N
E
Z
V
u
s
D
TURBO-
CLAVIER
Christian KEHREN
Turbo-Clavier, présenté ici, a pour
but de vous faciliter la saisie de
tous vos listings BASIC Amstrad
464, 664 et 6128.
Vous tapiez tous les ordres BASIC
courant lettre par lettre ? Plus
maintenant .' Après avoir saisi ce
petit listing, toutes les touches du
pavé numérique vous donneront les
fonctions principales.
De plus, en combinant la touche
CTRL (contrôle) avec certaines
lettres, vous obtiendrez tous les
ordres d'édition et d'entrée-sortie.
Après son exécution, Turbo-Clavier
s 'efface de la mémoire, laissant
toute la place nécessaire à votre
programme.
D'après son auteur, son utilitaire a
été lesté par trois programmeurs
pendant plus d'un an pour être le
plus ergonomique possible.
Espérons que vous le trouverez
pratique et efficace.
10 REM * UTILITAIRE CLAVIER * >XP
20 MODE 2iS=26:P»l:INK l.SilNK 0,P: >LH
BORDER P
30 CLS:L0CATE 20,1:PRINT CHR*)24);" ;HF
QUEL ECRAN VOULEZ-VOUS UTILISER :
■;CHR* 124): LOCATE 30,6:PRINT CHR$(2
4)j" [NI ";CHR*(24i;" - NOIR"
40 LOCATE 30,9:FRINT CHR»(24);" [BI /FW
";CHR*(24)i" - BLANC":L0CATE 30,12
:PRINT CHR*(24);" CM ";CHR»(24)i"
- ORANGE": LOCATE 30,15:PRINT CHRH2
4);" [V] ";CHR*(24S;" - VERT"
50 LOCATE 30,tB:PRINT CHR*(24)j" [C >PJ
] - :CHR$(24);" - AUTRE COULEURS" :L0
CATE 30,21:PRINT CHR»(24);" [RETURN
] ";CHR$|24>;" - FIN"
60 CALL 4BB18:IF INKEY(46)<>-1 THEN >PC
BORDER 0:INK 0,0: INK 1,23: GOTO 60
70 IF INKEY(54)<>-1 THEN BORDER 13: >BD
INK 0,13: INK 1,0: GOTO 60
80 IF INKEYI5510-1 THEN BORDER 9:1 >ZH
NK 0,9: INK 1,0:G0T0 60
90 IF INKEY(34K>-1 THEN BORDER 15: >BH
INK 0,15:INK l,O:GOT0 60
11» IF INKEYI62KM THEN 700 >WE
110 IF INKEYU8) O-l THEN SOUND 1,5 .
O,20:S0UND 1,150,20:S0UND 1,80,30:6
OTO 130
120 PRINT CHR»(7):60T0 20 >
130 CLS: PRINT" ORDRES PROGRAMMES EN ;
MAJUSCULE DU MINUSCULE ( M:MAJUSCU
LE - MIN.: autre 1: ?"
140 CALL 4..BB1B: IF If*EY(38K>-l THE >
N CLS:S0T0 420
150 CLS
160 KEY 135, "goto "
170 KEY 136,"90SUD "
180 KEY 137,"return"
190 KEY 132, "Tor "
200 KEY 133, "to "
210 KEY 134,"next "
220 KEY 129, "H "
230 KEY 130,"then "
240 KEY 131,"else "
250 KEY 12B,"step "
260 KEY 138,"chr*l"
270 KEY 139, "print"
280 KEr 140,"load"+CHR»iS4)
290 KEY DEF 58,1. 101,69, 141:KEY 141
,"edlt ": E
300 KEY DEF 36,1. 108,76. 142:KEY 142
,"list ": L
310 KEY DEF 69, 1,97,65, 143:KEY 143,
■auto ": A
320 KEY DEF 62,1,99,67, 144: KEY 144.
■cl5":C
330 KEY DEF 50,1, 114, 82,145:KEY 145
,"run ": R
340 KEY DEF 35,1,105,73.146:KEY 146
,"call MC02"+CHR*<13)
350 KEY DEF 60,1,115,83,147:KEY 147
,"save"+CHR»(34)
360 KEY DEF 61,1,100,68,148:KEY 148
,"cat"*CHRt(13)
370 KEY DEF 68,1, 149, 208, 228:KE* 14
9,"locate"
380 KEY DEF 9.1.&E0.206.207
390 KEY DEF 38,1,109,77,150:KEY 150
."mode "
400 PRINT SPC13) +CHR» (24) : "TURB0-CL
AVIER - Version 2.3 - 1987 - KEHREN
CHRISTIAN ":CHR*(24); n ... a votre
service '":PRINT
410 DELETE 10-
420 REM * MAJUSCULES ♦
430 KEY 135. "GOTO "
440 KEY 136, "G0SUB "
450 KEY 137, "RETURN"
460 KEY 132, "FOR "
470 KEY 133, "T0 -
480 KEY 134,"NEXT"
490 KEY 129, "IF "
500 KEY 130, "THEN "
,510 KEY 131, 'USE "
520 KEY 128/STEP " >MJ
530 KEY 138,"CHR«i" >MF
540 KEY 139, "PRINT" -NH
550 KEY 14Û,"L0AD"+CHR»(34) >UU
560 KEY DEF 58,1, 101,69, 141:KE( 141 >JF
,"EDIT "
570 KEV DEF 36,1,10B,?6,142:KEY 142
."LIST "
580 KEY DEF 69, 1,97, 65, 143: KEY 143.
■AUTO "
590 KEY DEF 62,1,99,67,144:KEY 144,
"CLS"
600 KEY DEF 50,1,114,82,145:KEY 145
,"RUN "
610 KEY DEF 35,1,105,73,146:KEV 146
,"CALL MC02"*CHR$113i
620 KE< DEF 60,1,115,83,147:KEY 147
,"SAVE"tCHR$l34)
630 KEY DEF 61,1, 100,68, 148:KE< 148
,"CAT"tCHRI(131
640 KEY DEF 68,1, 149,208. 228:I'E* 14
9, "LOCATE"
650 KEY DEF 9,1, KO, 206, 207
660 KEY DEF 38,1,109,77, 150:KEY 150
,"M0DE "
670 PRINT SPC!3):CHR»(24i;"TURB0-CL
AVIER - Version 2.3 - 1987 - KEHREN
CHRISTIAN ";CHR»124!;" ... a votre
service ! ":Ff<INT
680 DELETE 10-
690 END
700 ' » Autres couleurs «
710 CLS:LOCATE 30,6:PRINT CHR«(24i;
" ";CHR»(242!i" ":CHR*i24);" %. "+CH
R$(24)i" ":CHR*(243);" " iCHRt (24) : "
- STYLO"
720 LOCATE 30,10:PRINT CHRJi24);" "
:CHR*l240)i" "iCHRJ(24)i" !,. "+CHR«(
24)|" "iCHR$(241)i" ":CHR*(24i:" -
PAPIER"
730 LOCATE 30,14:PRINT CHR*(24i:" R >FG
ETURN ■;CHRt(24):" - FIN"
740 LOCATE 25,20:PRINT "STYLO : "iC
HR$(24»:SiCHR*(24);" - PAPIER : ";
CHR»(24);P;CHR*(24I
)JJ
Ht
,>FE
HH
TD
PI
;LH
>TZ
>JL
TU
Ff
>TJ
>RH
>NU
HX
<L
750 CALL MB16
MH
760 IF INK£Y(B)<>-1 AND S<26 THEN S
>NX
=S+1:I»: 1,8
770 IF INKEYIDO-l AND S>0 THEN S=
>MV
S-1:INK 1,8
780 IF INKEY(0)O-l AND PÏ26 THEN P
>ZY
=P-H:INK 0,P:B0RDER P
790 IF INKEY(2K>-1 AND P.>0 THEN P=
>YX
P-1:INK 0,P:B0RDER P
800 IF INKEYU810-1 THEN 30
>VJ
810 LOCATE 25,20:PRINT "STYLO : ";C
>XJ
HR*(24I;S;CHR»(24):" - PAPIER : ";
CHR$(24);PiCHR»(24)
.820 GOTO 750
ZJ
TURBO CLAVIER
CLAVIER
CTRL + E : Edit
CTRL + L : List
CTRL + A : Auto
CTRL + C : Cls
CTRL + I : Init. couleurs
CTRL + S : Save"
CTRL + D : Dir (cata-
logue)
CTRL + M : Mode
CTRL + R : Run
CTRL + ENTER :Load"
CTRL + COPY :
noirures graphiques
CTRL + TAB : cœurgra-
phique
SHIFT + TAB: ligne gra-
phique
Pour CPC 6128 et 664
SHIFT + COPY: da-
mier graphique
TAB : locate
PAVE
NUMERIQUE
chr$(
fO
step
f1
if
f2
then
f3
else
f4
for
f5
to
f6
next
f7
goto
f8
gosub
f9
return
TABLEAU DES
CARACTERES
DE CONTROLE
TURBO CLAVIER
Pour CPC 6128 et 664
CLAVIER
SHIFT + COPY : damier graphi-
que
CTRL + E : Edit
CTRL + L : List
CTRL + A : Auto
TAB : locate
PAVE NUMERIQUE
CTRL + C : Cls
chr$(
CTRL + 1 : Init. couleurs
fO
step
CTRL + S : Save"
fi
if
CTRL + D : Dir (catalogue)
f2
then
CTRL + M : Mode
f3
else
CTRL + R : Run
f4
for
CTRL + ENTER : Load"
f5
to
CTRL + COPY : noirures graphi
f6
next
ques
f7
goto
CTRL + TAB : cœur graphique
f8
gosub
5HII- 1 + l AB : ligne graphique
f9
return
PRIMI CHR*(1);
CHR$(
cod
e ASCII)
O
n
20
©
T
1
r
A
21
■X.
11
2
-L
B
22
n
U
3
j
C
23
H
N
4
S
6
H
•y
F.
F
24
X
X
25
♦
V
26
S*
Z
7
fii
G
27
e
t
8
<--
H
28
ra
N
9
-*
I
29
M
3
ÎO
4-
J
30
31
H
t
11
r
K
12
*
L.
32
13
<j
M
33
I
14
®
N
34
■•
1S
&
O
35
«t
±6
H
P
36
*
17
©
G
37
y.
18
©
R
38
&
19
<ù
S
39
•
Voici enfin le tableau de
référence sur les carac-
tères de contrôle. En ef-
fet, certains listings peu-
vent contenir des signes
bizarres qui vous sont in-
connus. Reportez-vous à
ce tableau qui sera valable
dans tous les cas de figu-
res.
Le listing Intruder con-
tient trois de ces étranges
signes : la flèche en haut
et flèche en bas ainsi que
le classique contrôle X.
THE
Au fin fond de l'univers, une
nouvelle bataille... vous
attend. Seul, face à une horde
d'envahisseurs surgis de
l'immensité intersidérale, vous
assurez courageusement la
défense de votre univers.
LISTING 1
1 ' mnmi i mminiiiiiiiin i n
2 '* *
LOADER INTRUDER *
3 '»
4 '*
5 '*
6 '»
(c.'BISHEAD SOFTWARE
>FA
•FB
,FC
■FD
FE
;>FF
7 '*+***##**#♦*#***#*********#*** >F6
10 MODE 0:11* 0,0: BORDER Oill* 1,15 >PE
:INK 3,14: INK 4,25:INK. 5,10:INK 4,7
:INK 7,6:11*. 8,20: INK 10,2:INK 9,26
11 EVERV 10,1 GOSUB 500 >QA
20 SYMBOL AFTER 32 >MN
21 SYMBOL 68,112,120,108,102,102,12 >FU
6,124
22 SYMBOL 69,112,96,120,120,96,124, >DT
126
23 SYMBOL 72,68,100,102,126,126,102 -EH
,102
24 SYMBOL 73,16,24,24,24,24,24,24 ,>ZD
25 SYMBOL 78,66,102,118,126,102,102 >ET
,102
INTRUDER
Xavier GROSSETETE
Du haut de l'écran apparaît le vaisseau
mère - hors de portée - larguant suc-
cessivement des vaisseaux rebelles qui,
lentement, inexorablement, descen-
dent vers vous.
Votre tir doit être stratégique et vous
devrez faire mouche à chaque fois
pour arriver jusqu'au vaisseau mère.
Ultime challenge à surmonter.
D'une bonfie présentation avec sa
musique rythmée, ce jeu reste simple
mais très difficile à tenir au niveau 3.
A vos joysticks ou claviers !
Le premier listing (optionnel) vous
donne la page de présentation et
charge le jeu lui-même (deuxième lis-
ting à sauver sous le nom d'INTRU-
DER).
Attention aux datas de redéfinition de
caractères, ainsi que la partie de rou-
tines en langage machine comprise
entre les lignes 4380 à 4470. Je vous
conseille vivement de sauvegarder
votre travail avant de lancer celui-ci
car, en cas d'erreur dans les datas, le
plantage irrémédiable vous ferait per-
dre toutes vos heures de frappes.
26 SYMBOL 82, 120, 100, 100, 120, 104, 10 >FZ
2, 102
27 SYMBOL 84,126,126,24,24,24,24,12 >BY
28 SYMBOL 85,68,102,102,102,102,126 >ET
,124
40 SYMBOL 141,0,0,0,0,0,0,8,29 >W6
50 SYMBOL 142,0,0,0,0,0,0,0,128 >XC
60 SYMBOL 143,0,3,31,63,255,254,248 >EX
,240
70 SYMBOL 144,127,255,255,254,128,1 >JH
28,96,31
90 SYMBOL 145,224,240,252,126,62,14 >HL
,31,231
90 SYMBOL 146,240,255,255,255,72,35 >B2
,61,66
100 SYMBOL 147,0,0,255,255,63,143,6 >FH
4,127
110 SYMBOL 148,15,255,254,253,225,1 >KC
5,121,146
111 SYMBOL 149,64,96,80,40,20,55,52 >DP
,23
112 SYMBOL 150,0,0,0,0,3,254,3,254 >AE
113 SYMBOL 151,0,0,0,0,128,96,248,1 >BY
4
114 SYMBOL 152,48,48,57,79,244,6 >YB
115 SYMBOL 153,0,1,255,224 >TZ
116 SYMBOL 154,254,252,240,64,224 >ZN
120 A*=" "+CHR$(141)tCHR«(142l+CHR« >YF
(10)+CHR*(8)+CHR»l8>+CHR*(8l+CHR*(l
43)+CHR*(144)tCHR»tl45l+CHR*tl0)+CH
R$(8)*CHR$(8>+CHR*(8I+CHR»(146)+CHR
»(147)*CHR*(148)
121 NAV*=CHR$(149!+CHR»(150)+CHR*(1 >K
51)+CHR«<10)+CHR»<8!*CHR«(8!+CHR*l8
1+CHR» (152) +CHR$(153)+CHR* 11541
130 FOR ETQILE=1 T0 100 >QF
140 X=INT(RND»640) >NF
150 Y=INT(RND«400) NB
160 PLOT X,Y,INT(RND*15>*1 VH
170 NEXT >ED
180 FOR T=l T0 5:M0VE 30,T:HUW 610 >LE
,T,1:NEXT
190 FOR T=6 T0 20:MOVE 30, T: DRAW 61 >MZ
Û,T,2:NEXT
200 FOR T=20 T0 22:M0VE 30. T: DRAW 6 >NK
10,T,9:NEXT
210 FOR T=l T0 B:nWE T,26:DRAW T,3 /MF
74,1: NEXT
220 FOR T=8 T0 20:MOVE T,2t:DRAW T, >MH
374,2:NEXT
230 FOR T=20 T0 22:M0VE T, 26: DRAM T >NB
,374,9:NEXT
240 FOR T=616 T0 620:M0vE T,26:DR«N ;>8C
T,374,9:NEXT
250 FOR T=620 T0 632:M0VE T,26:DRAW -OU
I T,374,2:NEXT
260 FOR T=632 T0 636:M0VE T,26:DRAW >RV
T,374,10:NEXT
270 FOR T=394 T0 400:H0VE 30, T: DRAW >RE
610,T,10:NEXT
280 FOR T=3B2 T0 392:M0VE 30, T: DRAW ;>0T
610,T,2:NEXT
290 FOR T=378 T0 3B0:M0vE 30, T: DRAW >QD
610,T,9:NEXT
3i» X=20:F0R T=l T0 22:M0VE T,X:DRA >AT
* T,20,10:X=X-1:NEXT
310 X=380:FOR T=l T0 22:MOvï T,X:DR >CQ
AW T,380,10:X=Xtl:NEXT
320 X=380:FOR T=618 T0 636:MOVE T,3 >HB
B0:DRAW 618,X,10:X=X*1:NEXT
330 X=1:F0R T=61B T0 636:M0VE T,20: >CY
DRAW T,X,10:X=Xtl:NEXT
340 R=300 'CC
341 X=0:Y=0:OR1GIN 0,0,30,640,30,40 >CK
342 Z=R"2:F0R D=0 T0 R STEP 4:D1=SQ >MA
R(Z-(D''2)):PL0T X+D,Y+D1,2:DRAW X+D
,Y-D1,6:NEXT
343 FOR A=0 T0 200 STEP 10 >RE
344 PLOT INT(RND«300),INT(RND*300), >E6
,345 NEXT >EH
380 PRINT CHR«(22)+CHR*(1) >UM
390 PEN 9 >BD
400 LOCATE 2,9;PRINT A» JRN
410 LOCATE 3,16:PRINT Pi* >TG
420 LOCATE 4,21:PRINT A» >TE
430 LOCATE 5,13:PRINT USING"&";fl» >BA
440 LOCATE 10,5:PR1NT USIN6"!i - ;NAVJ >BJ
450 PEN 10:LXATE 12,8:PRINT "THE": >m
PEN 12:LKATE 10,10:PRINT "INTRUDER
460 PEN 0:LOCATE 2,25:PRINT USING"!: >YT
■jCHR*(164)+"BIGHEAD SOFTWARE": PEN
1
461 FOR t=l TO 540:NEXT t >TH
470 RUN" ! INTRUDER >NQ
500 READ B ;.JB
510 IF B=-l THEN RESTORE 540: GOTO 5 >DH
00
520 SOUND 2,B,20,15:SOUND 1,6*1,20, >YK
15:S0UND 4,B+2,20,15
530 RETURN >ZD
540 DATA 190,175,169,159,190,179,16 >NV
9, 159, 95, 95, 106, 0, 106, 95, 95, 106, 1 19
, 127, 119, 127, 142, 106, 127, 159, 190, 17
9, 169, 159, 190, 179, 169, 159,96,96, 106
, 119, 159, 190, 159, 190,239, 142, 179,21
3,179,213,253,239,-1
LISTING 2
10
***
#****#****###*
20
'#
30
*
THE INTRUDER
40
*
50
*
(c) BIGHEAD
60
'#
SOFTWARE
70
*
1987
80
*
90 ' *#**+*#********#*♦*#*♦
100 TAG0FF:PRINT CHR*(23)+CHR»I0)
110 MODE
120 Tl$=" Z "+CHR$ (242) : T2*=CHR* 1243)
♦"X":F»="ESPACE"
130 GOTO 1630
140 INK 0,0: BORDER
150 MODE 0:SPE£D INK 50,50
160 FOR 1=1 TO 15: INK I,0:NEXT I
170 GOSUB 400
180 ' iiiiiniHimiiHllli
190 '« DECORS »
200 **********************
210 FOR y=80 TO 350 STEP 5: PLOT RND
*63B,y,9:IF RND>=0.5 THEN color=4:P
LOT XP0S+color,y,10 ELSE color=-4:P
LOT XP0S+color,y,10
220 NEXT >DK
230 PRINT CHR$(22)*CHR*(11 >UF
240 PEN 13:L0CATE 1,22:PRINT STRIN6 >UN
»<20,CHR*(214>>
250 PEN 2:L0CATE 1,22:PRINT STRING» >TT
(20,CHR*(215I)
260 LOCATE 1,25:F0R 1=248 TO 253:PR >MD
INT CHR$(I)::NEXT:PEN 9:PAPER
270 PEN 6:L0CATE 13,25:PRINT USING" M
i'VINTRUDER":: /
280 LOCATE 1,1 >PG
290 PRINT CHR*(22)+CHR*(0) >UL
300 INK 1,6: INK 2, 11: INK 3,3: INK 4, >PG
15: INK 5, 18: INK 6, 11: INK 7,22: INK 8
,26: INK 9,26,0: INK 10,0,26: INK 13,2
:INK 14,26:1»: 11,26:1*. 15,0
310 LOCATE 1,1 >PA
320 GOSUB 4420 >PG
330 x=300 >CH
340 cx=8 >ZF
350 xl=8 >XJ
360 B=0 >NC
370 c=-5 >VC
380 po=62999 >DE
390 GOTO 720 >ZH
400 ' *#**#*****#****♦**#♦** >RE
410 '• REDEFINITION CARAC.» >RF
420 '#*****♦*♦#*»**#***#**# >RG
430 SYMBOL 236,1,1,15,15,1,1,1,1 >YT
440 SYMBOL 237,128,128,240,240,128, >MD
128,128,128
450 SYMBOL 238,7,8,16,32,64,255,128 >ET
,255
460 SYMBOL 239,224,16,8,4,2,255,1,2 >CE
55
470 SYMBOL 240,0,24,60,189,255,255, >HE
153, 129
480 SYMBOL 241,0,0,0,63,64,64,63 >YV
490 SYMBOL 242,0,126,129,126,0,0,25 >FJ
5,255 I
500 SYMBOL 243,0,0,0,252,2,2,252 >YX
510 SYMBOL 248,240,144,128,240,16,1 >KZ
6.144.240
520 SYMBOL 249,0,0,240,144,128,128, X*
144,240
530 SYMBOL 250,0,0,240,144,144,144, ;>HY
144,240
540 SYMBOL 251,0,0,160,208,208,128, >HN
128, 128
550 SYMBOL 252,0,0,240,144,240,128, >HD
128,240
560 SYMBOL 253,0,0,240,0,0,240 >HT
570 SYMBOL 150,7,i,lF,*,3F,&7F,!,7F,25 >KZ
5,255,255
580 SYMBOL 151,i£0,t,F8,!iFC,&FE,!,FE, >NN
255,255,255
590 SYMBOL 152,255,255, 4CF, 147,1*3, >LU
l33,l.lF,i,7
600 SYMBOL 153,255,255,255,254,254, >MU
lfC,4F8,l£0
610 SYMBOL 48,24,36,36,0,36,36,24 >ZK
620 SYMBOL 49,0,4,4,0,4,4 >TK
630 SYMBOL 50,24,4,4,24,32,32,24 ;>YM
640 SYMBOL 51,24,4,4,24,4,4,24 >WG
650 SYMBOL 52,0,36,36,24,4,4 >VB
660 SYMBOL 53,24,32,32,24,4,4,24 >YU
670 SYMBOL 54,24,32,32,24,36,36,24 ;>AR
680 SYMBOL 55,24,4,4,0,4,4 >TA
690 SYMBOL 56,24,36,36,24,36,36,24 >«
700 SYMBOL 57,24,36,36,24,4,4,24 >YB
710 RETURN >ZD
720 '*»*****#***#**#***###* ;:RK
730 » BOUCLE PRINCIPALE t /TA
740 '***#*****#♦*##»##**#** >TB
750 IF INKEY!touchel)=0 AND :<>-2 TH >NE
EN x=x-16:po=po-2
760 IF INKEY<tauche2)=0 AND x<603 T >YD
H£N x=x+16:po=po+2
770 TAG >UC
780 PLOT -10,-10,6:M0VE x-32,40:PRI >YF
NT" ";CHR»1240)i" "j
790 IF INKEY(touche31=0 THEN GOSUB >GG
1520
800 PLOT RND*638,350,9:IF RND>=0.5 >DD
THEN color=4:PL0T XP0S+color,350,10
ELSE color=-4tPL0T XP0S+color,350,
10
810 FOR 1=62960 TO 63000 STEP 2:F=P >G6
EEK(I):IF fX> THEN GOSUB 1120
820 NEXT >EF
830 IF INKEY (271=0 THEN TAGOFF:PEN >FP
5:L0CATE 13,25:PRINT USING"!.": "PAUS
E ";:CALL !,BB06:CALL 4BB06:CALL 1
BB06:PEN 6:L0CATE 13,25:PRINT USING
"t";"INTRUDER";:TAG
840 CALL 17000 >HK
850 IF INKEY (tcuchel 1=0 AND x>-2 TH >WH
EN x=x-16:po=po-2
860 IF INKEY(touche2)=0 AND x<603 T >YE
HEN x=x+16:po=po*2 /
870 PLOT -10,-10,6:H0VE x-32,40:PRI >YF
NT" "jCHR*(240);" "j
880 IF INKEY(touche3>=0 THEN GOSUB )GS
1520
890 FOR 1=63000 TO 63038 STEP 2:-f=f >GM
EEK(i):IF <>0 THEN GOSUB 1120
900 NEXT >EE
910 IF n=2 THEN CALL 8.7000 >TC
920 IF n=3 THEN CALL Î,7000:CALL Î.70 >CD
00
930 xl=xl+cx >HD
940 b=B+l >CD
950 c=Ctl >C8
8
■■^^■■m
960 PLOT -10,-I0,4:M0VE :<1,38Û:PRIN >ZD
T " ":CHRt(241):CHR$(242):CHR»(243)
970 IF 5C=1000 THEN TAGOFF:PEN 1:L0 >RJ
CATE 13,25:PRINT USING'TyBONUS 1 »'
";:FOR bonus=sc TO sC+490 STEP 10: L
OCflTE 7,25:PEN 5:PRINT bonus:SOUND
l,60,2,7:NEXT:sc=bomi5:L0CATE 13,25
:PEN 6:PRINT USINB'^"; " INTRUDER"; : T
AG
9B0 IF SC=2000 OR SC=3000 OR SC=400 >NF
THEN FIN=1
990 IF SD=2150 OR SOM150 THEN >EH
FIN=0
1000 IF SC=3150 THEN FIN=4 >TU
1010 IF SX500 THEN GOTO 4480 >XS
1020 TAGOFF:PEN 5:L0CATE 7,25iPRINT >MK
sc;:TA6
1030 IF xl=0 OR xl=576 THEN cx=-cx ;>AE
1040 IF b>=10 THEN b=0:GOSUB 1210 >ZF
1050 IF c>=5 THEN c=-5:G0SUB 1220 >ZU
1060 CALL WOOO >PF
1070 MOVE 0,76:DRAWR 640,0,10 >MJ
1080 GOTO 750 >FG
1090 '**#**#*****#****+**#** >YC
1100 '« TEST ECRAN * >XE
1110 '##****#***#*#«#*♦***** >XF
1120 IF PEEK(l)=5 OR PEEK(i)=10 OR :>KU
PEEKli)=65 OR PEEK(l)=75 OR PEEK(i)
=130 OR PEEK(i>=135 THEN RETURN
1130 ENV 1,30,0,1, 127,-1, ISiSOUND 1 >UQ
29,0,240,15,1,0,10
1140 SPEED INK 1,1:1NK l,26,O:B0RDE >UY
R 26,0:11*: 0,0,26
1150 FOR 1=1 TO 500:NEXT >RP
1160 IF SSII) =132 THEN 1160 ELSE vi >HB
e=vie-l
1170 IF vie» THEN G0SU8 4710:B0T0 >EG
150
1180 NHILE INKEY$« , "':NEND:GOSUB 34 >FH
90
1190 CALL UB06 >UE
1200 CLS:60SUB 3430:G0T0 1780 >XM
1210 IF FIN=0 THEN HOVE (INT(RND*70 ?ZE
I) «4+10,300: GOTO 1290
1220 IF FIN=0 THEN MOVE (INT(RND»65 >AC
>) «4+346, 300: GOTO 1290
1230 IF FIN=2 THEN RETURN >UN
1240 IF FIN=1 THEN GOTO 1350 >VD/
1250 IF FIN=4 THEN GOTO 1420 >VF
1260 ' ********************** >YB
1270 '« INTRUDERS « >YC
1280 «a***»****»»»********* >YD
1290 IF RND>0.63 THEN DRAWR 8,0,7:11 >XJ
OVER 4,-2:DRANR -16,0,7iPLOTR -2,0,
7:PL0TR 16,0,7:MOVER 0,-2:DRAHR 4,0
,5:DRA*R 0,-16,5:PL0TR -4,14,5:M0VE
R -16,0:DRANR 0,2,5:DRAKR -2,0,5:DR
AMR 0,-16,5:PL0TR 4,0,3:PL0TR 16,0,
3:M0VER -4,4 ELSE GOTO 1310
1300 DRAWR 0,14,1:N0VER -4,0:DRANP
0,-16,l:M0VER -4,2:DRAWR 0,14,1:PL0
TR O,-4,ll:PL0TR 8,0,11:PL0TR -4,-6
,3:PL0TR 0,-4,ll:RETURN
1310 IF RND>0.33 THEN DRAWR 8,0,7:11
OVER 4,-2:DRAWR -16,0,7:PL0TR -2,0,
7:PL0TR 16,0,7:t10VER 0,-2:DRANR 4,0
,6:DRAWR 0,-16,6:PLOTR -4,14,6:M0VE
R -16,0:DRAWR 0,2,6:DRAUR -2,0,6:DR
AMR 0,-16,6:PL0TR 4,0,3:PL0TR 16,0,
3:M0VER -4,4 ELSE GOTO 1330
1320 DRANR 0,14,1:M0VER -4,0:DRAHR
0,-16,1:MOVER -4,2:0RAWR 0,14,1:PL0
TR O.-4.11:PL0TR B.0.11:PL0TR -4.-6
,3:PL0TR 0,-4,ll:RETURN
1330 PLOTR 0,0,1:N0VER 4,0:0RAWR 8,
0,7:PL0TR 0,-2,7:M0VER 16,0:DRAUR
,2,7:DRANR 8,0,7:PL0TR 4,0,1:M0VER
-16,-2:DRAWR 0,-4,4:MOVER -4.0:DRAW
R 0,6,4:M0VER -4,-2:DRAWR 0,-4,4:PL
OTR 0,2,7:PL0TR B,0,7:PL0TR -4,-4,2
:PLOTR -12,-2, kPLOTR 4,2,1:PL0TR 4
,"2,1
1340 PLOTR 8,0,1:PL0TR 4,2,1:PL0TR
4,-2,l:RETURN
1350 TA60FF
-1360 LOCATE 7,5:PRINT CHR»(i50);'T
r;CHR»(151);
1370 LXATE 6,6:PRINT CHR$(150);T
T';CHR*(151);
1380 LOCATE 4,7:PRINT CHR*(150);"IT
HE INTRUDERI";CHR»(151);
1390 LOCATE 4,8:PRINT CHR$(152!;"Î
I"; CHR» (153);
1400 LXATE 5,9:PRINT CHR»(152);'T
I";CHR»(153);
1410 SC=SC+25:TAG:FIN=2:RETURN
1420 TAGOFF
1430 PEN 4:L0CATE 3,5:PRINT CHR*I15
0):LOCATE 4,6:PRINT CHR»(153)
1440 PEN 5:L0CATE 4,5:PRINT CHR*(15
t):LOCATE 3,6:PRINT CHR»U52>
1450 PEN 5:LXATE 15,6:PRINT CHR*(1
50):LXATE 16,7:PRINT CHR$(153)
1460 PEN 4:LXATE 16,6:PRINT CHR*(1
51):LXATE 15,7:PRINT CHRK152)
1470 PEN 7:LXATE 8,7:PRINT CHR»(15
OI:LCCATE 9,8:PRINT CHR*(153)
1480 PEN 1:LXATE 9,7:PRINT CHR*(15
1):LXATE 8,8:PRINT CHR»(152>
1490 SC=SC+25:TA6:FIN=0:RETURN
1500 '*#**♦♦******♦*******»*
1510 '» TIR LASER ♦
1520 '«****♦*##**********»*
l
9
1530 ENV 2,15,-1, 10:ENT 2,150,10,1: >FC
SOUND 129,50,50,15,2,2: TAGOFF:LXAT
E 1,1:PRINT CHR*(23);CHR»(1):TAG:H0
VE x+16,60:DRAWR 0,350,2:CALL &BD19
:MOVE x+16,60:DRANR 0,350,2: TAGOFF:
LOCATE 1,1:PRINT CHR«(23)+CHR*(0):T
AS: pb=88
1540 FOR l=po TO (po-1520) STEP -80 >AM
1550 pb=pb+16:IF PEEK(i)=0 OR PEEKI
i)=5 OR PEEK(i)=10 OR PEEKI i) =65 OR
PEEK(i)=75 OR PEEK(i)=130 OR PEEK!
l)=135 THEN 1580
1560 sc=sc+25:ENV 1,30,0,1,127,-1,1
5:S0UND 129,0,240, 15, 1,0, 10:PL0T -1
0,-10,2:MOVE x-22,pb:PRINT" ";:M0
VE x-22,pb-16:PRINT" " ; : IIOVE x-22
,pb-32:PRINT" ";:MOVE x-22,pb+3:F
RINT" ";:i=po-1520
1570 TAGOFF:L0CATE 1,1:PRINT CHRK2
3)+CHRS(l):TAG:M0VE X+16,60:DRAWR
,350,2:CALL !iBD19:M0VE X+16,60:DRAW
R 0,350,2:TAG0FF:LXATE 1,1:PRINT C
HR»(23)+CHR»(0):ÎAG
1580 NEXT
1590 RETURN
1600 ' #**#*****#*****♦»*****
1610 '» MENU »
1620 '**************#+**♦***
1630 GOSUB 2260
1640 MODE 1
1650 INK 1.26: INK 2,26: II*; 3,26
1660 SOSUB 2730
1670 MINDDW #2,7,40,7,25:PAPER#2, 1:
PEN#1,0
1680 HINDOU ll,3,37,3,24:PAPER*l,l:
CLStl
1690 PEN 1: PAPER
1700 LOCATE 3,3:PRINT CHR*(250):L0C
ATE 37,3:PRINT CHR» (249): LOCATE 3,2
4:PRINT CHRt(248):L0CATE 37,24:PRIN
T CHR» 1247)
1710 PEN #2,2
1720 LOCATE 18,4:PEN 3:PAPER 1:PRIN
T"MENU"
1730 GOSUB 2690
1740 LOCATE 7,20:PRINT"INTRUDER"
1750 GOSUB 2730
1760 PEN 2:L0CATE 9,23:PRINT CHR»(1
641" BIGHEAD SOFTWARE 1987"
1770 PEN 5:L0CATE 4,5:PRINT CHR«(15
1):LXATE 3,6:PRINT CHR»(152)
1780 PRINT#2,"1...INSTRUCTI0NS"
1790 PRINTH2
1800 PRINT#2,"2...CH0IX CLAVIER OU
JOYSTICK!"
1810 PRINT#2
RE
•LF
FJ
>XK
>YA
>YB
>XC
.-PS
>X6
>XH
KM
>HJ
.M6
;RR
>ZE
Lh
>YA
■BE
:XH
>KH
•HE
M
1820 PRINT #2, "3... REGLAGE DE LA DI >ND
FFICULTE"
1830 PRINT #2 >HB
1840 PRINT 12, "4... MEILLEURS SCORES >F6
1850 PRINTI2
>HB
1860 PRINTI2,"5...JEU"
OZ
1870 INK 1,0: INK 2,11:1»! 3,6
>VT
1BB0 a»=INKEY$
>XB
1890 IF a*="l" THEN GOTO 1980
>VX
1900 IF a*="2" THEN GOTO 2770
>VM
1910 IF a$="3" THEN GOTO 2990
>VU
1920 IF a»="4" THEN GOTO 3200
>VE
1930 IF a$="5" THEN PRINT CHR»(22>+
>EJ
CHR$(0)+CHR$(23)+CHR»(0):VIE=3:SC=0
:BOT0 140
1940 GOTO 1880
>NJ
1950 'UIUIIIHIIIIIIIIIIII
>YH
1960 '» REGLES »
>YJ
1970 '*********##**+*#*****+
>YK
1980 GOSUB 3410:60S0B 4110
UB
1990 DATA " REGLES DU JEU"
.ïG
2000 DATA " AU FIN FOND DE L UNI VER
S"
2010 DATA "UNE NOUVELLE BATAILLE
>FX
>FD
2020 DATA "VOUS ATTEND....
CF
2030 DATA " FACE A CES NOUVEAUX
>EP
2040 DATA "ENVAHISSEURS, PLUS Q'UNE
>6M
2050 DATA "CHOSE A FAIRE :
>CF
2060 DATA " VOUS DEFENDRE'
>CR
2070 X=120:Y=330:PRINT CHR*(221+CHR
>LC
*<1);:PRINT CHR»(23)*CHR*(1) j
2080 RESTORE 1990:F0R 1=1 TO B:READ >GC
F$(II
2090 TAG:PLOT -2,-2,l:M0VE X,Y:PRIN
>LV
T P»(I);
2100 PLOT -2,-2,2:M0VE X+1,Y-1:PRIN
;KE
T P»(I);
2110 Y=Y-20
>UK
2120 TAGOFF
AH
2130 NEXT
•KH
2140 TAGOFF
•m
2150 RESTORE 2220
>LN
2160 READ A,B
■ES
2170 IF A=-l THEN GOTO 2210
>TX
2180 SOUND 1,A,B,7:SBUND 2,A»4,B-2,
5
2190 IF INKEY(47)=0 THEN FOR lc=l TO
•ce
>TH
35:PRINT:NEXT:G0SUB 3430:G0T0 1780
2200 GOTO 2160
J
2210 FOR T=l TO 1000:NEXT T:FOR k=l >XK
TO 35:PRINT:NEXT:G0SUB 3430:G0T0 1
780
2220 DATA 478,50,319,50,358,13,379, -EX
13,426,13,239,60,319,60,358,13,379,
13,426,13,239,60,319,60,358,13,379,
13,358,13,426,70,-1,0
2230 '*#*****#********#*#*** >XK
2240 » PRESENTATION CLAP ♦ >YA
2250 '#************♦****♦#** >YB
2260 INK 0,26:B0RDER 26: INK 0,26: IN >AV
K 1,26: INK 2,26:11*: 3,6: INK 11,0: IN
K 13,0:INK 12,26:INK 14,11
2270 GOSUB 3750 >XJ
2280 WNDOHIH, 2, 19,5,22 >RT
2290 PAPER#1,1:CLS»1 >PJ
2300 PAPER 0:PEN 1:L0CATE 2,22:PRIN >AH
T CHR$< 248): LOCATE 19,22:PRINT CHR*
(247)
2310 PEN#1,0 >YE
2320 PRINTtl,"UNIVERSAL STUDIOS" >CH
2330 PRINT#1 ,'GE
2340 PRINT41, "PRODUCTION " >FT
2350 PRINT»1,"DIRECT0R " >GF
2340 PRINTtl, "CAMERA " ,»SU
2370 PRINTtl ;GJ
2380 PRINTtl," DATE SCENE TAKE"; >CG
2390 PRINTtl," " >HH
2400 PEN 1: PAPER >LE
2410 FOR X=3 TO 17 STEP 4 >RE
2420 LOCATE X,4:PRINT CHR»l214)CHR* >TJ
(143ÎCHR»(212)
2430 LOCATE X+1,3:PRINT CHRt(214)CH >VZ
RJ(143)CHR$(212)
2440 NEXT JLB
2450 FOR X=4 TO 17 STEP 4 >RK
2460 LOCATE X,2:PRINT CHR$(213)CHR* >TN
(143)CHR$(215>
2470 LOCATE X-1,1:PRINT CHR*(213)CH >VF
R»(143)CHR«(215)
2480 NEXT >LF
2490 TAG:PLOT -2,-2,l:MOVE 5O,390:P >TB
RINT CHR*(231) ! :H0VE 50,390:PRINT C
HR»(230!;:TA60FF
2500 PLOT 30, 60, 1 : DRAW 30, 39B: DRAN >EZ
607,39B:DRAW 607,330:PL0T 30,367:DR
AW 607,367
2510 PRINT CHR»(22)+CHRt(l> >VE
2520 PEN 2 >FK
2530 LOCATE 12,7:PRINT"INTRUDER" >BD
2540 LOCATE 12,9:PRINT CHR*(164I+"B >KD
IGHEAD"
2550 LOCATE 13,11:PRINT"AMSTRAD" >BY
2560 PRINT CHR$(22)*CHR$(0) >VJ
2570 PRINT CHR*(23)*CHR»(1) >VM
2580 FOR 1=0 TO 200 STEP 2:PL0T 1,4 >GQ
0O-I,12:DRAW 640, 400-1: PLOT 1,1+I:D
RAVI 640,1*I:NEXT:PL0T 1,200:DRAN 64
0,200,12
2590 toucheWl: touche2=63: touche! 3
47:n=l
2600 DIM Hl(20).n»*(20)
2610 RESTORE 2620:F0R 1=1 TO 10:REA
D HKI>,NM»(I):NEXT
2620 DATA 4500, "D.VINCENT", 4000, "SP
OCK", 3000, "NEMESIS", 2500, "HERKY", 10
00, "COBRA", 999, "MAD", 950, "CRAD MAX"
,900,"SKELETOR",850,"GRYZOR",500,"M
UTANTS"
2630 NHILE INKEY«<>"":HEND
2640 A*=INKEY»
2650 IF A»=CHR*(32) OR A«=CHR»<13>
THEN RETURN ELSE GOTO 2640
2660 '***»#**#**#*##»**#*#**
2670 '« ECRITURE MODE 0/1 «
2680 '*******##*##*#***n**#
2690 POKE !,B1C8,0:P0KE &BlD0,Sc33:RE
TURN
2700 ' **+**##*****#*#**#♦#*#
2710 't ECRITURE MODE 1/1 t
2720 ' ##*****#*m*****#**t*
2730 POKE (.B1C8,1:P0KE 1B1D0,W4:P0
KE 4BlDl,!i22:P0KE Ulfi2,UliRETURN
2740 ' **»**#**#**********#**
2750 » CHOIX CLAVIER/ JOYS.»
2760 ' ************♦#*##*****
2770 GOSUB 3410
2780 PRINT CHR$(22)+CHR*(1)+CHR«(23
>+CHR*ll)
2790 DATA " CLAVIER» 1 ).. .JOYSTICK (2
)"
2800 RESTORE 2790: READ P*:TAG:PLOT
-2,-2,l:M0VE 120, 330! PRINT Pt; : PLOT
-2,-2,2:MOVE 121,329:PRINT P»;:TAG
OFF
2810 PEN 3:L0CATE 6,6:PRINT T1*;T2»
:" ";F»:LOCATE 22,5:PRINT CHR$(254)
*CHR$(251):L0CATE 22,6:PRINT CHR»(2
52)+CHR$(253)
2820 RESTORE 2950
2830 ENV 2,4,0,1,7,-1, 1:ENV 3,24,-1
.25,0.5
2840 G=12
2850 FOR A=l TO 16:READ CD
2860 SOUND 1,C,12,15,2:S0UND 2*16,0
,12,G,3,,D
2870 IF D=l THEN 6=12 ELSE G=15
2880 IF D=l THEN ENV 3,3,0,1,1,-12,
1
2890 IF D=31 OR D=8 THEN 6=15
2900 A*=INKEY»
2910 IF A*="l" THEN touchel=71:touc
he2=63: touche3=47: CLS: GOSUB 3430: GO
TO 1780
>VT
HG
DG
>YG
YH
>YJ
>6F
>B
>YC
>YD
>RV
>YF
>YG
>YH
XS
>LQ
■un
>LP
>XA
>AG
>VQ
•EU
10
^P^HHMi^HBBHBHBH
2920 IF A*="2" THEN touchel=74:touc >E6
he2=75:touche3=76:CLS:GOSUB 3430:60
T0 1780
2930 NEXT
2940 GOTO 2820
2950 DMA 638,1,438,1,319,1,319,1,6
38,31,638,1,319,1,319,1,638,1,638,1
, 426, 1 , 426, 1 , 358, 31 , 379, 1 , 426, 1 , 506
,1
2960 ' M********************
2970 « REGL. DE LA D1FFI. »
2980 ' #****♦*♦**#*******+**+
2990 GOSUB 3410
3000 PRINT CHR»(22)+CHR*(1)*CHRS(23
l+CHMU)
3010 DATfi "REGLAGE DE LA DIFFICULTE
3020 RESTORE 3010:READ P»:TAG:PL0T
-2,-2,l:M0VE 120,330:PR!NT P«::PLOT
-2.-2.2:M0VE 121,329:PRINT P*::TAG
OFF
3030 PEN 2:PRINT:PRINT: PRINT:PRINT
NIVEAU 1":PPINT"
NIVEAU 2":PRINT" NIVE
AU 3"
3040 DATA " APPUYER SUR 1,2 OU 3"
3050 GOSUB 4110:REST0RE 3040:READ P
*:TAG:PLOT -2,-2,l:liOVE 135,200:PRI
NT P»;:PLOT -2,-2,3:M0VE 136,199:F'R
INT P«;:TAGOFF
3060 RESTORE 3150
3070 FOR U»l TO 32:READ V,N,X
3080 ENV 5,4,0,1,8,-1,1
3090 SOUND 1,V,12,15,2:S0UND 18,0,1
2,0,3,, N:SOUND 36,X, 12,14,5
3100 A«=INKEY«
3110 IF A*="T THEN N=1:CLS:G0SUB 3
430:G0T0 1780
3120 IF A»="2" THEN N=2:CLS:G0SUB 3
430; GOTO 17B0
3130 IF A»="3" THEN N=3:CLS:G0SUB 3
430: GOTO 1780
3140 NEXT:GOTO 3060
3150 DATA 638,1,0,638,1,0,319,1,119
,319,1,0,638,31,106,638,1,0,319,1,1
19,319,1,0,638,1,127,438,1,0,426,1,
159,426,1,0,358,31,127,379,1,0,424,
1,159,506,1,0
3160 DATA 63B, 1,95, 638, 1,106, 319,1,
89,319,1,106,358,31,0,638,1,0,319,1
,0,319,1,0,438,1,0,638,1,0,426,1,0,
426,1,0,358,31,0,379,1,0,426,1,0,50
6,1,0
3170 'm*******************
3180 '« TOP 10 *
3190 '*****#*******#********
3200 GOSUB 3410:PEN 2
^3210 DATA" TOP 10" >RJ '
3220 PRINT CHR*(22)+CHRS(1)+CHR«(23 >LE
KCHRMl)
3230 RESTORE 3210:READ P$:TAG:PLOT
-2,-2,l:M0VE 120,330:PRINT P$;:PLOT
-2,-2,2:M0VE 121,329:PRINT P»;
3240 GOSUB 4110:Y=290 >PR
3250 FOR 1=1 TO 10 >LE
3260 PLOT -2,-2,l:M0VE 200,Y:PR1NT >N6
HI(I);:MOVE 320,y:PRINT 1*1* ( 1 ) ;
3270 PLOT -2,-2,2:M0VE 200,Y:PRINT >ML
HI(I);:MOVE 320,y:PRINT mil);
3280 Y=Y-19 >N6
3290 NEXT:TA60FF >NH
3300 RESTORE 3380 >LV
3310 ENV 1,1,15,1,1,-3,2,1,0,1,1,0, >HD
1, 12,-1, 4:ENV 2,1,15,1,1,0,1,1,0,1,
12,-1,8,2,-1,20
3320 FOR VI TO 46: IF V=32 THEN RES >KF
TORE 3380
3330 READ P,D:D=D»15 >NC
3340 SOUND l,P,D,6l SOUND 2,P*2,D,5, ,YD
2:S0UND 4,F73,D,5,1
3350 IF INKEY(47>=0 THEN LOCATE 1,1 >KF
8:F0R T=l TO 16:PRINT:NEXT:G0SUB 34
30:GOTO 1780
3340 NEXT >LD
3370 GOTO 3400 >MH
3380 DATA 478,4,358,3,358,1,358,4,3 >9.
19,4,284,3,284,1,284,4,358,2,319,2,
284,2,248,4,379,4,319,4,358,4
3390 DATA 239,2,239,2,284,2,213,4,2
39,2,239,2,248,2,248,4,248,2,248,2,
319,2,239,4,248,2,248,2,284,2,284,4
•IH
K
3400 LOCATE 1,18:F0R T=l TO 14:PRIN
T:NEXT:60SUB 3430:G0T0 1780
HF
3410 NINDON 5,35,4, 19:CLS
■M
JPB
3420 RETURN
>FC
3430 HINDOU #2,7,40,7, 25:PAPER«2,1:
'LE
>PE
PEN 3: LOCATE 14,1:PRINT"MENU"
3440 GOSUB 3750
>XJ
>NF
3450 RETURN
>FF
>JT
3460 'uiMimiimninuui
>YF
3470 '« CLASSE AU TOP 10?? ♦
>YG
3480 '**♦**#****#***********
>YH
3490 FOR 1=1 TO 10
>LL
3500 IF SCMltli) THEN 3530
>TP
:RC
3510 NEXT
>LA
3520 INK 0,24: BORDER 24: INK 1,0: INK
>Ptl
2,11:INK 3,4:G0SUB 3750:GOTO 1440
3530 FOR j=10 TO I STEP -1
m
>YD
3540 hi(j+l)=hi(j):n«J(j+l)=nn*(jl
BE
>YE
3550 NEXT
>LE
>YF
3560 hi(i)=5C
)MC
,PM
3570 MODE 1:PEN 2: INK 1,6:11*: 2,11:
>H6
INK 3,24
35B0 TAGOFF >BJ
3590 LOCATE 14.5-.PRINT CHR*(150);"X >XT
T';CKR«(151);
3400 LOCATE 15,6:PRINT CHR»il50);"I >ZG
I";CHR*(151);
3610 LOCATE 13,7:PRINT CHR$tl50];"I >HT
THE INTRUDERTiCHR*(151)|
3620 LOCATE 13,B:PRINT CHR»U52!;1 >CF
I";CHR*(153);
3630 LOCATE 14,9:PRINT DHR»U52lj1>flC
T';CHR*(153);
3440 ENT 2,15,1,3 >DK
3650 LOCATE 1,12 >DH
3660 PAPER 0:PEN 3:PRINT" BRAVO, VO /RU
US ETES CLASSE DANS LE TOP 10"
3670 FOR N0=1 TO 26 STEP 0.5:B0RDER ,HQ
27-N0:INK 0,NO:INK: 2,27-N0:INK 3,2
7-N0:F0R I«l TO 40:NEXT T:SOUND 130
,0,5,15,0,0,N0:NEXT NO: INK! O,0:PEN
3: INK 2,U:INK 3,24: INK 1,6: BORDER
3480 PEN 1:PRINT:PRINT" ENTREZ V >TZ
OTRE NOM:";
3490 WHILE 1NKEY*0"":WEND >VA
3700 PEN 3:LINE INPUT G» ,>RX
3710 NM* ( I ) =LEFT* (Et, 10) : INK 0,24:B ;TW
ORDER 24: INK 1,0: INK 2,11:1* 3,4:G
OSUB 3750: GOTO 1440
3720 't********************* >YE
3730 « REDEF. CARAC. « >YF
3740 [lllllllllllllll l l i m >YG
3750 SYMBOL AFTER 32 >PA
3760 SYMBOL 250,7,HF,KF,!.7F,! I 7F,2 >LV
55,255,255
3770 SYMBOL 249,(£0,!,F8,W : C,t<FE,8fE >PU
,255,255,255
3780 SYMBOL 248,255,255, KF,M7,163 >HN
,k33,lilF,li7
3790 SYMBOL 247,255,255,255,254,254 >NE
,8,FC,l<F8,!<E0
3800 SYMBOL 254,0,0,15,7,3,3,3,3 >YC
3810 SYMBOL 251,0,0,128,192,192,192 >JR
,192,192
3820 SYMBOL 252,3,3,3,3,15,31,31,31 >AH
3830 SYMBOL 253,192,192,192,128,254 >NK
,254,252,252
3840 SYMBOL 65,254,194,194,254,226, >HX
226,226
3850 SYMBOL 66,252,194,194,252,226, )HU
226,252
3860 SYMBOL 67,254,192,192,192,224, >HV
224,254
3870 SYMBOL 68,252,194,194,194,226, >HD
226,252
3880 SYMBOL 69,254,192,192,254,224, >HY
11
224,254
3890 SYMBOL 70,254, 192, 192, 254,224, >W
224,224
391» SYMBOL 71,254, 192, 192, 198,226, >HT
224,252
3910 SYMBOL 72,194,194,194,254,224, >W
226,226
3920 SYMBOL 73,24,24,24,24,28,28,28 ;BG
3930 SYMBOL 74,6,6,6,6,230,230,124 >AN
3940 SYMBOL 75,70,196,200,240,232,2 >GN
28,226
3950 SYMBOL 76,192,192,192,192,224, >HX
224,255
3960 SYMBOL 77,198,234,210,194,226, >HX
226,226
3970 SYMBOL 78,194,226,210,202,230, >HE
226,226
3980 SYMBOL 79,124,194,194,194,226, >HD
226, 124
3990 SYMBOL 80,254,194,194,254,224, >HU
224,224
4000 SYMBOL 81, 124, 194, 194, 194,234, ,>HC
228,122
4010 SYMBOL 82,254,194,194,254,232, >HJ
228,226
4020 SYMBOL 83,124,194,192,124,2,22 >F«
6,124
4030 SYMBOL 84,254.48,48,48,56,56,5 >CM
6
4040 SYMBOL 85,194,194,194,194,226, >HZ
226,254
4050 SYMBOL 86,194,194,194,194,226, >6C
100,56
4060 SYMBOL 87,194,194,194, 194,242, >HH
234, 19B
4070 SYMBOL 88,194,196,104,48,104,2 >SC
28,226
4080 SYMBOL 89,194,194,100,48,56,56 >EK
,56
4090 SYMBOL 90,254,2,4,24,48,224,25 >CM
4
4100 RETURN >EJ
4110 SYMBOL 65,124,254,198,198,254, >MK
254,198,198
4120 SYMBOL 66,248,196,198,254,254, >MU
198,196,248
4130 SYMBOL 67,126,254,192,192,192, >MN
192,254,126
4140 SYMBOL 68,248,252,198,198,198, >MY
198,252,248
4150 SYMBOL 69,254,254,192,240,192, >MQ
192,254,254
4160 SYMBOL 70,254,254,192,240,192, >MK
192,192,192
4170 SYMBOL 71,254,254,192,192,206, >MU
198,254,254 ,
4180 SYMBOL 72,198,198,198,254,254,
198,198,198
4190 SYMBOL 73,126,126,24,24,24,24,
126, 126
420O SYMBOL 74,30,30,12,12,236,236,
124,124
4210 SYMBOL 75,98,102,108,120,120,1
20.108,102
4220 SYMBOL 76,240, 240,96,96,102,10
2,126,126
4230 SYMBOL 77,254,254,214,214,198,
198,198,198
4240 SYMBOL 78,102,102,118,110,102,
102,102,102
4250 SYMBOL 79,126,126,102,102,102,
102,126,126
4260 SYMBOL 80,126,126,102,126,126,
96,96,96
4270 SYMBOL 81,254,254,198,198,222,
220,246,246
4280 SYMBOL 82,252,102,102,124,120,
108,102,231
4290 SYMBOL 83,126,126,96,124,62,0,
126,124
43W SYMBOL 84,254,254,56,56,56,56,
56,124
4310 SYMBOL 85,102,102,102,102,102,
102,126,126
4320 SYMBOL 86,102,102,102,102,102,
102,60,24
4330 SYMBOL 87,238,238,238,254,254,
238,238,198
4340 SYMBOL 88,102,126,24,24,24,24,
126, 102
4350 SYMBOL 89,102,102,36,24,24,24,
60,60
4360 SYMBOL 90,126,126,6,12,24,48,1
26,126
4370 RETURN
4380 '***#******#***********
4390 » ROUTINE LM »
4400 » CALL 1,7000 »
4410 ' #**+*##******##*##**♦*
4420 DOTA 195,9,112,1,80,5,237,184,
201 , 33, 63, 246, 17, 63, 254, 205, 3, 1 12, 3
3,63,238,17,63,246,205,3,112,33,63,
230,17,63,238,205,3,112,33,63,222,1
7,63,230,205,3,112,33,63,214,17,63,
222,205,3,112
4430 DATA 33,43,206,17,63,214,205,3
,112,33,63,198,17,63,206,205,3,112,
33,239,253,17,63,198,205,3,112,201,
0,0,0
4440 RESTORE 4420
4450 FOR 1=47000 TO 47054:READ a: PO
KE i,a
.4440 NEXT
4470 RETURN
FJ
4480 TAGOFF
BJ
4490 FOR 1=1 TO 21:L0CATE 1,25:PRIN
>ML
T"J.":NEXT
4500 FOR 1=21 TO 1 STEP -lsLOCATE 1
>IM
,l:PRINT"t":NEXT
4510 I» 0,0:BORDER
>PU
4520 PEN 1
■GA
4530 A*(1>="BRAV0,V0US AVEZ"
>XT
4540 A»l2)="DETRUIT TOUS LES"
>YV
4550 A«(3)="INTRUDERS'!'"
>TZ
4560 M=l
WF
4570 Y=6
>YD
4580 FOR t=l TO 10
>LZ
4590 FOR 1=1 TO LENlflKWl
>TN
4600 PEN INT<RND*8>t|
F"!
4610 BORDER INT(RND«!5)
>RE
4620 LOCATE 2+1, Y
>LL
4630 PRINT MID*lAt(M),I,li
>UV
4640 SOUND 1,50, 4,7:S0UND 3,10,3,6:
>0G
SOUND 2,5,2.5
4650 NEXT
LG
4660 W**llY«Y+l
>LN
4670 IF M=4 THEN M=1:Y=6
RE
4680 NEXT t
>XE
4690 BORDER
>JK
47M GOTO 3490
•NE
4710 MODE 0:1», 1,24:1». 2,6:1» 0,
LM
0: BORDER
4720 PLOT 50,100, 1 : DRAW 50,370:DRAH
>TG
590,370: DRfW 590,100:DRAN 50,100:P
8:DRA» 46,372,4:DRAH 592,372
4730 PEN 8
HA
4740 LOCATE 4,4:PRINT"IL VOUS RESTE
BD
4750 PEN 7 >HB
4760 FOR X=B TO 5+(VIE»2.5) STEP 2 ;ZR
4770 LOCATE X,10:PRINT CHR»(240) >AL
47BO NEXT >MA
4790 IF VIE=2 THEN LOCATE 12,10:PRI >BT
NT CHR«(238ICHR$(239):L0CATE 12,9:P
RINT CHR$(236)CHR*(237)
4800 IF VIE=1 THEN LOCATE 8,10:PRIN >ED
T CHR»(240I" "CHR*(238)CHR$(239);"
■;CHR»(238)CHR»(239):L0CATE 10,9:PR
INT CHR*(236)CHR*(237) - "CHR»(236IC
HR*(237)
4810 WHILE INKEY*C> H ":WEND >W
4820 CALL &BB06 >UH
4B30 RETURN >FJ
4840 ' **** #*+ * * >YJ
4850 ' ♦ ♦ h ♦ >YK
4860 ' »» ♦ t»»* >ZA
4870 ' » » * ♦» >ZB
4880 ' ♦ * » * >ZC
4890 ' * »» * * >ZD#
12
SURFACE
Emmanuel GUILLARD
Calculer la surface d'un carré
ou d'un rectangle... Facile !
Mais celle d'un trapèze, d'un
losange ou, mieux, d'une
ellipse, cela vous dirait ? Pas
vraiment, n'est-ce pas ?
Surface vous permet de
calculer tout cela en deux
temps, trois mouvements avec
formules à l'appui.
Si vous avez du mal en math
et que votre prochaine interro
approche, saisissez vite ce
programme qui vous fera
réviser vos points faibles.
Initialement conçu avec son
complément : Volume (qui
sera publié dans le prochain
hors série), Surface est
parfaitement utilisable seul.
Alors, bonne révision...
10 ON ERROR 60T0 4890
20 '
SURFACES
MENU PRINCIPAL
:SU*=CHR*(24I:SURF=1:60SUB
30
40
50
60 '
70 MODE
4850
80 LCCATE 26,6:PRINT SU»; 'CARRE - ! SU >PZ
*;SPC(10);SU1$;"LOSANGE";SU1$
90 LCCATE 26,8:PRINT SU2«; "RECTANGL >KT
E";SU2*;SPC (6) ;SU3$; "PARALLELOGRAMM
£";SU3*
100 LOCATE 26,10:PRINT SU4$; "TRIftNG >YF
LE";SU4»;SPC(7);SU5*i"TRAPEZE";SU5»
110 LXATE 26,12:PRINT SU6»; "CERCLE >XE
';SU6*:SPC(9liSU7»;"COURONNE"iSU7*
120 LOCATE 26,14:PRINT SU8*;"SECTEU >PL
R";SU8«;SPC<8>;SU9»; "SEGMENT CIRCUL
AIRE";SU9»
130 LOCATE 26,16:PRINT SU10*;"ELLIP >N0
SE - ;SU10»
140 ' >RF
150 ' CHOIX >R6
160 ' >RH
170 IF INKEY(8)=0 THEN SURF=SURF-1: >L6
GOTO 240
180 IF INKEY(0)=0 THEN SURF=SURF-2: >LA
GOTO 240
190 IF INKEY(1)=0 THEN SURF=SURF+1: >LA
GOTO 250
200 IF INKEY(2>=0 THEN SURF=SURF+2: >LU
GOTO 250
210 IF INKEY(9)=0 THEN RUN"SURVDL" >CC
' k7
220 IF INKEYU8)=0 THEN ON SURF G0S >FH
U8 390,790,1230,1610,2090,2390,2740
,3090,3250,3590,4070:COT0 B0
230 GOTO 170 >YK
240 IF SURF<1 THEN SURF=11 >VK
250 IF SURFM1 THEN SURF=1 >VN
260 ON SURF G0SUB 270,280,290,300,3 >PB
10, 320, 330, 340, 350, 360, 370: GOTO 80
270 SU*=CHR*(24):SU1»="":SU2»="":SU >CF
10»="":SU9«="":RETURN
280 SU1*=CHR*(24):SU»="":SU2*="":SU >CA
3*="':SU10«="":RETURN
290 SU2*=CHR»(24):SU*="":SU1*="":SU >BA
3*="":SU4*="":RETURN
,300 SU3$=CHR$(24):SU1»="":SU2*="":S >CB
U4«="":SU5*="":RETURN
310 SU4i=CHR$(24):SU2«="":SU3«="":S ;CH
U5»="":SU6*="":RETURN
320 SU5»=CHR*(24):SU3»="":SU4»="":S >CP
U6*="":SU7«="":RETURN
330 SU6»=CHR*(24):SU4*="":SU5*="":S >CH
U7»="":SU8*="":RETURN
340 SU7*=CHR»(24):SU5«="":SU6»="":S >CC
U8*="":SU9*="":RETURN
350 SU8$=CHR*(24):SU6*="":SU7»="":S >BE
U9»="":SU10$="":RETURN
360 SU9$=CHR*(24):SU7$="":SUB»="":S >EH
U10$="":SU11*="":RETURN
370 SU10t=CHR*(24):SUS="":SU8t="":S >BH
U9«="":SU$="":RETURN
380 ' carre >TB
390 MODE 2:G0SUB 4670:GOSUB 4860 >U>
400 PLOT 320,200,13:DRAUR -100,0:DR >PL
AWR 0, 100:DRAWR 10O,0iDRAWR 0,-100
410 PLOT 220,20O:DRAMR -17,0:DRAKR >UQ
0,100:DRAWR 17,0
420 PLOT 203,2O0:DRAHR -5,10:PL0TR >MQ
11,0:DRAWR -5,-10:PL0T 203,3O0:DRAW
R -5,-10:PL0TR 11,0:DRANR -5,10
430 PLOT 220,200:DRAHR 0,-17:DRANR >UT
100,0:DRAWR 0,17
13
m
440 PLOT 220, 183: DRAW 10,5:PL0Tfi
,-ll:DRftWR -10,5:PL0T 320, 183:DRAWR
-10,5:PLOTR 0,-lItORAHR 10,5
450 PLOT 220, 200: DRAW 100,100
460 LOCATE 26,10:PRINT "a":LOCATE 3
4,14:PRINT "a":LOCATE 34,10:PRINT "
470 fol*=CHR*(24):fo2*="":fo3*="";f >HT
o4i=""
480 fo=l >VH
490 LOCATE #3,59,6:PRINT #3, fol»; 'A >XV
=a";CHR$(255);fol*
500 LOCATE #3,59, 10:PRINT #3,fo2»:" >NR
a» A"jfo2*
510 LOCATE *3,59,14:PRINT «S,^*; 1 >PK
e=a 2";fo3»
520 LOCATE #3,59, 18:PRINT #3,fo4«;" >NA
u=4a"ïfo4*
530 ' radicaux ;RJ
540 PLOT 480,255, 1:DRAUR B,-14:DRAtl >KT
R 8, 14:DRAMR 16,0:PL0T 488,192:DRAW
R B,-14:DRAW 8,14:DRAW 16,0
550 IF INKEY(1B)=0 THEN 650
560 IF MEY(47)=0 THEN 590
570 IF INKEY(9)=0 THEN CLS:RETURN
580 SOTO 550
590 *o=fo+l:IF fo>4 THEN *o=l
600 ON <o GOSUB 610,620.630, 640:B0T
490
610 *ol*=CHR$(24):f-o2t='
o4*="":RETURN
620 fo2*=CHR*(24):fol*='
o4«="":RETURN
630 fo3»=CHR*(24>:fol*="":*o2$="":f >RY
o4*=":RETURN
640 fo4*=CHR*(24):fol*="":lo2M"":< >RZ
o3»="":RETURN
650 CALL 4BB03:CLS#1:ÛN fo GOSUB 66 >N¥
0,690, 750, 720 :CLS#1: GOSUB 4770:G0SU
B 4860: GOTO 470
660 tab 1=2: tab2=2: GOSUB 4330
670 aire=R0UND(cor2,4):LDCATE #1,2
,6:PRINT#1, "L'aire est de :":PRINT
#l,aire;" o«";CHR»l255>;" ."
680 CALL (<BB06:RETURN
690 tabl=2:tab2=2:6DSUB 4640
700 co=RDUND(SQR(aire),4):LCCATE #1
,2,6:PRlNT#l,"Le cote est de :":PRI
NT #l,co;" en ."
710 CALL iBB06:RETURN
720 tabl=2:tab2=2:G0SUB 4330
730 per=R0UND(col*4):L0CATE #1,2,6;
PRINT#l,"Le peruetre est'iPRINT «1
," de :";per;" ci ."
740 CALL l<BB06:RETURN >QV
750 tabl=2:tab2=2:G0SUB 4330 >tlV
760 dia=R0UND(col*S9Rl2),4):L0CATE >UU
:(o3*="":f ,'R«
:fo3»="":f >RX
;TC
QB
>YE
>gv
>J6
•l,2,6:PRINT#l,"La diagonale est':P '
RINT #1," de :";dia:" en ."
770 CALL 4BB06:RETURN >QB
7B0 ' losange >TF
790 MODE 2: GOSUB 4670: GOSUB 4B60 )ZH
800 PLOT 320,200, 13:DRAWR -100,0:DR ,'Rk
AW 30,B7:DRAW 100,0:DRAW -30,-87
810 PLOT 220,200:DRAW 0,-17:DRAWR
100,0: DRAW 0,17
820 PLOT 220,200:DRAW -13,4:DRANR
30, 87: DRAW 13,-4
830 PLOT 220,183:DRAW 10,5:PL0TR
,-ll:DRAW -10,5:PL0T 320,1B3;DRAW
-10,5:PL0TR 0,-11: DRAWR 10,5
840 PLOT 207,204:DRAW -2,B:M0VER 2
,-8:DRAW 8,4:FL0T 237,291:DRAW 2,
-B:HOVER -2, 8: DRAW -8,-4
850 PLOT 280,200:DRAW 0,87:M0VER
,-79:DRAW -8,0:DRAW 0,-8
860 LOCATE 28,10:PRINT "a": LOCATE 3
4,14:PRINT "a":LOCATE 36,10:PRINT "
h"
B70 ORIGIN 220, 200: DEG: PLOT 2O,O:F0
R a7.=0 TO 70 STEP 10: DRAW 2ûtC0S(a7.
>,20*SIN(aX):NEXT:0RI6IN 0,0
B80 LOCATE 30,12:PRINT CHR$(176)
890 fol*=CHR»(24):fo2*="":fo3*= f
o4»="":fo=l
900 LOCATE #3,59,6:PR1NT #3,tol$;"A
=a.h"îfol»
910 LOCATE #3,59,10:PR1NT »3,fo2*;"
A=a";CHR*(255);"sin";CHR»fl76IHo2«
-HP
•PQ
920 LOCATE #3,59,14:PR1NT #3,fo3»;"
a=A/h";to3»
930 LOCATE #3,59,18:PRINT #3,fo4»;"
u=4a";T-o4*
940 IF INKEY(18)=0 THEN 1040
950 IF INKEV(47)=0 THEN 980
960 IF INKEY(9)=0 THEN CLS:RETURN
970 GOTO 940
980 fo=lo+l:IF fo>4 THEN <o=l
990 ON <o GOSUB 1000,1010,1020,1030
:GOTO 900
1000 fol«=CHR*(24>:f-o2t="":<o3*="": >TK
*o4$=":RETURN
1O10 <o2»=CHR*(24):*ol*="":fo3»="": >TL
(o4$="":RETURN
1020 fo3*=CHR$(24):<ol»="":fo2*="": >Th
fo4»="":RETURN
1030 fo4*=CHR»(24):fol»="":Fo2*="": >TN
To3»="":RETURN
1040 CALL iBB03:CLS#l:0N fo GOSUB 1 >VL
050, 1100, 1170, 1140:CLS#1:G0SUB 4770
:BOSUB 4860: BOTO 890
1050 tabl=2:tab2=2:G0SUB 4330 >XL
'1060 tabl=2:tab2=8:G0SUB 4460 >XY
1070 IF haut'col THEN LOCATE #1,1,1 >HM
:PRINT#1,CHR»(7):G0SUB 4460
1080 aire=R0UND(co»haut,4>:L0CATE # >ZR
1. 2, 10:PRINT#1, "L'aire est de :":PR
INT #l,aire;" c«";CHR»(255l;" ■"
1090 CALL 4BB06:RETURN )RM
1100 tabl=2:tab2=2:G0SUB 4330 >X6
1110 tabl=2:tab2=B:60SUB 4420 >XP
1120 aire=R0UND<col'2»SIN(angl),4): >NR
LOCATE #1,2,10:PRINT#1,"L aire est
de :":PRINT #l,aire;" c«":CHR*(255)
1130 CALL !iBB06:RETURN ,.RG
1140 tabl=2:tab2=2:60SUB 4330 >XL
1150 per=R0UNDlcol*4):LQCATE #1,2,6 >KU
:PRINT#l,"Le pen«etre est":PRINT #
1," de :";per;" cm ."
1160 CALL 4BB06:RETURN >RK
1170 tabl=2:tab2=2:G0SUB 4640 >XU
1180 tabl=2:tab2=8:G0SUB 4460 >XB
1190 IF haut>SQR(aire) THEN LOCATE >0J
#1,1,1:PRINT#1,CHR*(7):G0T0 1180
1200 co=R0UND(aire/haut,4):L0CATE • >BM
1,2, 10:PRINT#l,"Le cote est de :":P
RINT #l,co;" cm ."
1210 CALL &BB06:RETURN >RF
1220 rectangle ;>XH
1230 MODE 2: GOSUB 4670: GOSUB 4860 >fl*
1240 PLOT 420,200,13:DRAW -200,0:D >QF
RAW 0,100:DRAWR 200,0:DRAW 0,-100
1250 PLOT 220,200:DRANR -17,0:DRAW ,'VN
0,100:DRAW 17,0
1260 PLOT 203,200:DRAUR -5,10:PL0TR ,'PE
U , 0: DftAWfl -5,-10:PL0T 203,300:DRA
W -5,-tOlPLOTR 11,0:DRAW -5,10
1270 PLOT 220, 200: DRAW 0,-17: DRAW >VR
200,0:DRAW 0,17
1280 PLOT 220,183:DRAW 10,5:PL0TR >LR
0,-ll;DRAW -10,5:PL0T 420,183:DRAW
R -10,5:PL0TR 0,-ll:DRAW 10,5
1290 PLOT 220,200:DRAW 200,100 >XD
1300 LOCATE 26,10:PRINT "b":LOCATE >NX
40,14:PRINT "a":LDCATE 40,9:PRINT "
e"
1310 <ol*=CHR*(24):fo2*="":fo3*="" >AY
1320 fo=l >DH
1330 LOCATE #3,59,8:PRINT #3, fol*:' >PA
A=a.b";<ol»
1340 LOCATE #3,59,13:PRINT #3,fo2*i >WA
■e= a":CHR»(255):"tb";CHR»(255)jfo
2«
1350 LOCATE #3,59,18:PRINT #3,fo3»; >TB
"u=2a+2b";fo3«
1360 ' radicaux >YC
1370 PLOT 480, 208: DRAW 8, -14: DRAW >UA
14
H^^^^H^^^^HB
B, 14: DRAW 50,0
1380 IF INKEY(18I=0 THEN 1470 >WL
1390 IF INKEY(47)=0 THEN 1420 >W
1400 IF INKEY(9)=0 THEN CLS:RETURN >CJ
1410 B0T0 1380 >MF
1420 foMo+1: IF fo>3 THEN f 0=1 >XD
1430 ON fo BOSUB 1440,1450, 1460: BOT >BQ
1330
1440 Foli=CHR$(24):fo2»="":fo3*="": >JG
RETURN
1450 fo2»=CHR*(24):tol*="":fo3*="": >JH
RETURN
1460 tn3*=CHR»(24):fol«="":fo2*="": ,>JJ
RETURN
1470 CALL &BB03:CLSI1:0N f£l BOSUB 1 >PM
480, 1520, 1560: CLSI1 : BOSUB 4770: 60SU
B 4860:6010 1310
1480 tabl=2:tab2=2:G05UB 4330 ,'XU
1490 tabl=2:tab2=6:60SUB 4360 >XC
1500 aire=R0UND(col»co2,4):L0CATE I >XK
1,2,8:PRINTI1, "L'aire est de :":PRI
NT Kl, aire;" cm";CHR*(255)l" ."
1510 CALL 4BB06: RETURN >RJ
1520 tabl=2:tab2=2:G0SUB 4330 >XN
1530 tabl=2:tab2=6:G0SUB 4360 >XX
1540 dia=ROUND(SQR(cor2H-co2'"2),4): >JP
LOCATE #l,2,10:PRINTIl,"La diagonal
e est":PRINT 11," de :";dia;" c« .
1550 CALL &BB06: RETURN >RN
1560 tab 1=2: tab2=2: GOSUB 4330 >XT
1570 tabl=2:tab2=6:60SUB 4360 >XB
1580 per=R0UND(col*2«co2*2,4):L0CflT >ZC
E »l,2,10:PRINTIl,"Le permetre est
•:PRINT 11." de :":per;" :» ."
1590 CALL MB06: RETURN >RT
1600 ' PARALLELOGRAMME >XK
1610 MODE 2:G0SUB 4670: BOSUB 4860 >AZ
1620 PLOT 370,200, 13:DRAW -150,0:0 >TR
RAW 30,87:DRAW 150,0:DRWIR -30,-8
7
1630 PLOT 220,200:DRAW 0,-17:DRAW ,>VH
150,0:DRAW 0,17
1640 PLOT 220,200:DRAW -13,4:DRAWR >HH
30,B7:DRAW 13,-4
1650 PLOT 220,1B3:DRAW 10,5:PL0TR >LX
0,-ll:DRAHR -10,5:PL0T 370,183:DRAW
R -10,5:F10TR 0,-U:DRAW 10,5
1660 PLOT 207,204:DRAW -2,8:MOVER >EX
2,-B:DRAW 8,4:PLOT 237,29l:DRAW 2
,-B:MOVER -2,B:DRAW -8,-4
1670 PLOT 320,200: DRAW 0,87:hWER >GH
0,-79: DRAW -8,0: DRAW 0,-8
1680 LOCATE 2B,10:PRINT V:L0CATE >YM
38,14:PRINT "a":LOCATE 39,12:PRINT
"h"
1690 0RI6IN 220, 200: DES: PLOT 20,0:F >JF
OR aï=0 TO 70 STEP 10:DRAkl 20*C0S(a
ï),20»SIN(a'/.):NEXT:ORIGIN 0,0
1700 LOCATE 30,12:PRINT CHR«(176):P
LOT 220,200:DRAW 1BO,87:MOVER -150
,0:DRAW 120, -B7: LOCATE 34,9:PRINT
"e2":L0CATE 45,9:PRINT "el"
1710 fol*=CHR«(24):fo2$=":fa3*:
fo4*="":*o=l
1720 LOCATE 13,59, 6:PRINT 13, fol*;"
A=a.h";fol*
1730 LOCATE 13,59, lOlPRIMT «3, fo2«:
"A=a.b.sin":CHR*<176);fa2$
1740 LOCATE 13,59, 14:PRINT *3,fo3»;
"el« ia*h.cot";CHRS(176);")"iCHR«(
255);"+h";CHR*(255)|fo3*
1750 LOCATE #3,59,18:PRINT !3,fo4$;
"e2= [a-h.cot";CHR»(176);")";CHR»(
255) i "+h" i CHR$ (255) ; <o4*
1760 ' radicaui:
1770 PLOT 488,128,1:DRAW 8,-14:DRA
m B,14:DRAW 120,0:PLQT 48B,192:DR
AWR B,-14:DRAW B,14:DRAWR 120,0
1780 IF INKEY(18)=0 THEN 1880
1790 IF INKEY(47)=0 THEN 1820
1800 IF INKEY(9>=0 THEN CLS: RETURN
1810 GOTO 1780
1820 fo=fo+l:IF fo>4 THEN fo=l
1B30 ON fo GOSUB 1840,1850,1860,187
0:GOTO 1720
1840 ( ol»=CHR* (24) : f n2$=" " : fo3*=" " :
fo4»="": RETURN
1850 f o2«=CHR* (24) : f ol»="" : f o3*=" " :
fo4«="": RETURN
1860 f o3*=CHR* (24) : f ol*="" : f o2*=
fo4«="": RETURN
1870 fo4$=CHR*(24):fol*="":fo2»="":
fo3»=*":RETURN
1880 CALL &BB03:CLSI1:0N fo GOSUB 1
890, 1930, 1 980,2030: CLSI1:G0SUB 4770
:GOSUB 4B6O:GOT0 1710
1890 tabl=2:tab2=2:G0SU6 4330
1900 tabl=2:tab2=8:G0SUB 4460
1910 aire=R0UND(col*haut,4):LQCATE
11, 2,10:PRINTI1, "L'aire est de :":P
RINT 11, aire:" cn";CHR*(255);" ."
1920 CALL &BB06: RETURN
1930 tabl=2:tab2=2:G0SUB 4330
1940 tabl=2:tab2=6:G0SUB 4360
1950 tabl=2:tab2=10:G0SUB 4420
1960 aire=ROUND(col*co2*SIN(anql>,4
):LOCATE I1,2,14:PRINTI1,"L aire es
t de :":PRINT 11, aire:" a»";CHR*(25
5);" ."
1970 CALL IBB06: RETURN
1980 tabl=2:tab2=2:SOSUB 4330
1990 tabl=2:tab2=6:60SUB 4460
2000 tabl=2:tab2=10:GOSUB 4420
: >PZ
>FE
.FO
>TZ
2010 dia=ROUND(SQR((col+haut-H/(TAN >GH
(angl)))''2+haut*2),4):L0CATE 11,2,1
2:PRINTIl,"La diagonale el est":PRI
NT 11," de :";dia;" a ."
2020 CALL 4BB06: RETURN >RF
2030 tabl=2:tab2=2:60SUB 4330 >XK
2040 tab 1=2: tab2=6: GOSUB 4460 >KV
2050 tabl=2:tab2=10:G0SUB 4420 >YL
2060 dia=ROUND(SQR((col-haut+l/(TAN >GR
(angl))) A 2thaut"2),4):L0CATE 11,2,1
2:PRINTIl,"La diagonale e2 est":PRI
NT 11," de :"idia;" c» ."
2070 CALL lcBB06: RETURN )RL
2080 ' triangle >YC
2090 MODE 2:G0SUB 4670:60SUB 4860 >AC
2100 PLOT 320,200, 13:DRAW -100,0:0 >BT
RAHR 60,87:DRAWR 40,-87
2110 PLOT 220,200:DRAW 0,-17:DRAW ,'VJ
100,0:DRAW 0,17
2120 PLOT 220,183:DRAW 10,5:PL0TR >LJ
0,-ll:DRAW -10,5:PL0T 320, IB3:DRAM
R -10,5:PL0TR 0,-U:DRAW 10,5
2130 PLOT 320,200:DRAW 14, 8| DRAW >XQ
-40,87:DRAW -14, -B
2140 PLOT 334,208:DRAW 0,8:M0VER >CK
,-8:DRAW -B,4:PL0T 294,295:DRAW
,-B:M0VER 0,8:DRAW 8,-4
2150 DEG:PL0T 312,218:F0R t=180 TO >76
250 STEP 10:DRAWR 4»C0S(f),4*5IN(f>
:NEXT
2160 PLOT 220,200:DRAW 0,87:DRAW >PT
60,0:M0VER -60,0:DRAW -5,-5:PL0TR
10,0:DRAW -5,5:M0VER 0,-B2:DRAWR 5
,5:PL0TR -10,0:DRAW 5,-5
2170 LOCATE 28, 10:PRINT"h":L0CATE 3 >RG
4,14:PRINT"a":L0CATE 40,10:PRINT"b"
:LOCATE 37,12:PRINT CHR»(177>;
2180 fol*=CHR«(24>:fo2*="":fo=l >YI
2190 LOCATE 13,59, 6:PRINT »3,fol$;" >UE
A=(a.h)/2";fol$
2200 LOCATE 13,59, 14:PRINT t3,fo2»; >FQ
H h=b.sin";CHR*(177)jfo2*
2210 IF INKEY(18>=0 THEN 2290 >WE
2220 IF INKEY(47)=0 THEN 2250 >W>
2230 IF INKEY(9)=0 THEN CLS:RETURN >CL
2240 GOTO 2210 >MA
2250 fo=fo+l: IF fo>2 THEN f 0=1 >XE
2260 ON (o GOSUB 2270,2280:60TO 219 >CM
2270 fol*=CHR«(24):fo2*="":fo3i="": >TH
fo4»="":RETURN
2280 fo2*=CHR$(24):fol*="":fo3»="": >TX
fo4»="": RETURN
2290 CALL &BB03:CLSI1:0N fo GOSUB 2 >GN
300,2340:CLStl:GOSUB 4770:G0SUB 486
0:60T0 2180
,2300 tabl=2:tab2=2:60SUB 4330 >XK
15
m
2310 tabl=2:tab2=8:G0SUB 4460 >XX
2320 aire=ROUND((col»haut)/2,4):LOC >GK
ATE #1,2, 10:PRINT#1, "L'aire est de
:":PRINT il, aire;" c«";CHR*(255);"
2330 CALL &BB06: RETURN >RK
2340 tabl=2:tab2=2:G0SUB 4360 >XT
2350 tab 1=2: tab2=8: GOSUB 4440 >XZ
2360 haut=R0UND(co2*SIN(angl),4):L0 >WK
CATE #l,2,10:PRINT#l,"La hauteur es
t de :":PR1NT ll,haut(" eu."
2370 CALL &BB06: RETURN >RP
2380 'TRAPEZE >YF
2390 MODE 2:G0SUB 4670:G0SUB 4860:P >HJ
LOT 400,200, 13:DRAIW -150,0:DRAW 2
0,80:DRAI* 80,0:DRftWR 50,-80
2400 PLOT 400,200:DRAWR 0,-15:DRAttR ;>XD
-10,4:hWER 0,-8:DRAWR 10,4:DRAWR
-150,0:DRA«R 10,4:M0VER 0,-8: DR/*»
-10,4:DRAWR 0,15
2410 PLOTR 10,40:DRAHR 115,0:DRAWR >BF
-10,4:M0VER 0,-B:DRANR 10,4:hWER -
115,0iDRAWR 10,4:hOVER 0,-8:DRAWR -
10,4
2420 FLOT 350,280:DRAWR 0,15: DRAKR ,'WJ
-10,4:MOVER 0,-8:DRAWR 10,4:DRAWR -
BO,0:DRAWR 10,4:M0VER 0,-8iDRAWR -1
0,4:DRAHR 0,-15
2430 PLOT 350, 280: DRAW» 70,0:DRAWR- >ZD
4,-10:rMVER 8,0:DRA»R -4,10:DRAWR
,-80:DRAWR -4,10:hWER 8,0:DRA«R -4
,-10:DRAW 400,200
2440 LOCATE 40,7:PRINT "b":LOCATE 4 >FJ
0,10:PRINT V':LOCATE 40,14:PRINT "
a":LXATE 53,10:PRINT "h"
2450 fnl$=CHR$(24):<o2$="":fo3*="" >AE
2460 fo=l >ED
2470 LOCATE #3,59,B:PRINT #3, toi»;" >YT
A=((a+b)/2).h";fol*
2480 LOCATE #3,59,13:PRINT #3,fo2»; >QU
"A=i.h";fo2*
2490 LOCATE t3,59,18:PRlNT #3,(o3»; >VB
"«=(a+b)/2";<o3«
2500 IF INKEY(1B)=0 THEN 2590 ;>».
2510 IF INKEY(47)=0 TIEN 2540 >WH
2520 IF INKEY(9)=0 THEN CLS:RETURN >CN
2530 GOTO 2500 >ME
2540 fo=fo-H :1F (o>3 THEN fo=l >XH
2550 ON fo GOSUB 2560,2570,2580:60T >GP
2470
2560 fol*=CHR«(24):fo2*=" H :Fo3*="": >JL
RETURN
2570 fo2»=CHR»(24):fol*="":fo3*="": >JN
RETURN
2580 fo3»=CHR»(24):fol*="":fo2»="": >JN
RETURN
2590 CALL iBB03:CLS#l:0N Fo GOSUB 2 >PD
600, 2650, 2690: CLStl : GOSUB 4770: GOSU
B 4860:G0T0 2450
2600 tabl=2:tab2=2: GOSUB 4330
2610 tabl=2:tab2=6:G0SUB 4360
2620 tabl=2:tab2=10:G0SUB 4460
2630 AIRE=ROUND(((col+co2)/2!»haut,
4):L0CATE «1, 2, 14:PRINTI1, "L'aire e
st de :":PRINT »l,airej" c«";CHR*(2
55);" ."
2640 CALL 4BB06: RETURN
2650 tabl=2:tab2=2: GOSUB 4390
2660 tabl=2:tib2=8:G0SUB 4460
2670 AIRE=R0UND((lol»haut),4):L0CAT
E #1, 2, 12:PRINTtl, "L'aire est de :"
:PRINT #l,aire;" c»";CHR*<255>;" ."
2680 CALL Î.BB06: RETURN
2690 tabl=2:tab2=2:G0SUB 4330
2700 tabl=2:tab2=8:G0SUB 4360
2710 «ioy=(col+co2)/2:L0CATE #1,2,12
:PRINT#l,"La longueur « est de :":P
RINT #l,«oy;" cm."
2720 CALL !tBB06: RETURN
2730 ' cercle
2740 MODE 2:G0SUB 4670:G0SUB 4860
2750 DEG:PLOT 380, 200: FOR Fï=0 TO 3
60 STEP 10:DRAH 320+60*C0S(F7.),2OO*
60tSIN(FH:NEXT
2760 PLOT 320,200:DRAW -60,0
2770 PLOT 320,260:DRAWR 80,0:DRAWR
4,-10:M0VER -8,0:DRAHR 4,10:DRAWR
,-120:DRAWR 4,10:MOVER -8,0:DRA«R 4
,-10:DRAN 320,140
27S0 LOCATE 37,13:PRINT "r":LOCATE
51,13:PRINT "d"
2790 *ol«=CHR*(24):fo2»="":<o3*=":
Fo4*="":fo=l
2800 LOCATE #3,59,6:PRINT #3,fol»;"
A=(";CHR*UB4);".d";CHR«(255);")/4"
;Fol»
2810 LOCATE #3,59,10:PRINT #3,fo2»;
"A=";CHR«(184);".r";CHR»(255);Fo2*
2820 LOCATE #3,59,14:PRINT #3,fo3*;
■A=0.785»d";CHR»(255) ;fo3*
2830 LOCATE #3,59,1B:PRINT #3,fo4»;
"u=";CHR«U84l;".d";fo4»
2840 IF INKEY(18>=0 THEN 2940
2850 IF INKEY(47)=0 THEN 2880
2860 IF INKEY(9)=0 THEN CLS:RETURN
2870 GOTO 2840
2880 fo=fo+l:IF fo>4 THEN (o=l
2B90 ON fo GOSUB 2900,2910,2920,293
0:SOTO 2800
2900 F ol*=CHR» (24) : f o2»=" " : f o3«=" ■ :
fo4*="": RETURN
2910 Fa2*=CHR«(24):fol*="":<o3«=" - :
,fo4*="": RETURN
^2920 Fo3*=CHR*(24l:Fol»="":Fo2«="":
to4*=": RETURN
2930 fo4»=CHR«(24):«ol»="":fo2»="":
<o3»="":RETURN
2940 CALL 4BB03:CLS#1:0N <o 60SUB 2
950, 2990, 3020, 3050: CLStl : GOSUB 4770
:GDSUB 4860:G0T0 2790
2950 tabl=2:tab2=2: GOSUB 4540
2960 aire=R0UND((PI*d2 A 2)/4,4>
2970 LOCATE #1, 2, 6:PRINT#1, "L'aire
est de :":PRINT #i,aire;" cit";CHR*(
255);" ."
2980 CALL MIB06: RETURN
2990 tab 1=2: tab2=2: GOSUB 4480
3000 aire=ROUND<(PI»ra"2),4):L0CATE
#1,2,6:PRINT»1, "L'aire est de :":P
RINT #l,aire;" c«";CHR»<255);" ."
3010 CALL dBB06: RETURN
3020 tabl=2:tâb2=2:S0SUB 4540
3030 aire=ROUND( (0. 785*D2' 2) , 4) : LOC
ATE #1,2,6:PRINT#1,"L aire est de :
":PRINT #l,aire;" cm" ;CHR*<255) ; " .
RL
>XA
>ZC
H
>RX
>XH
>AT
>RF
>XN
■EE
3040 CALL Î.BB06: RETURN
3050 tabl=2:tab2=2:G0SUB 4540
3060 per=R0UND(PI»D2,4):L0CATE #1,2
,6:PRINT#l,"Le pernetre est":PRINT
#1," de :":PRINT #l,per;" cm ."
3070 CALL &BB06: RETURN
3080 ' couronne
3090 MODE 2:60SUB 4670: GOSUB 4860
3100 DEG:PLOT 380,2O0:F0R F7.=0 TO 3
60: PLOT 320+60«C0S ( F7. ) , 200*60*S IN ( F
ïllDRAW -10*C0S(F7.) ,-lWSIN<RH :NE
XT
3110 PLOT 320,260:DRA# BO,0:DRAWR
4,-10:M0VER -8,0:DRAKR 4,10:DRAWR
,-120:DRAHR 4.10:M0VER -8,0:DRAWR 4
,-10:DRAH 320,140
3120 PLOT 320,250:DRAUR -80,0:DRAWR
4,-10:M0VER -8,0:DRAWR 4,10:DRAWR
0,-100:DRAWR 4,10:M00ER -fl,0:DRAWR
4,-10:DRAN 320,150
3130 LOCATE 30,13:PRINT "d":LOCATE
50,13:PRINT"D"
3140 LOCATE #3,59,12:F'RINT #3,CHR$(
24);"A=(";CHR*(184);'74).(D";CHRs<2
55>;"-d";CHM<255);")";CHR«(24)
3150 IF INKEY(18)=0 THEN 3180
3160 IF INKEY(9)=0 THEN CLS:RETURN
3170 GOTO 3150
3180 CALL !,BB03:CLS#l:tabl=2:tab2=2
: GOSUB 4540
3190 tabl=2:tab2=6:G0SUB 4510
3200 IF d2>dl THEN LXATE #1,1,1:PR
INT CHR*(7):G0T0 3180
,3210 aire=R0UND((PI/4)t(dl'2-d2 A 2),
>RJ
>XR
RM
>YD
AD
>ZA
m
>CP
MH
>PU
>XY
;ZG
16
m
4)
3220 LOCATE 11, 2, 10:PRIMTtl. "L'aire >LE
est de :":PRINT 11, aire;" c«";CHR»
(255);" ."
3230 CALL dBB06:CLS*l:60SUB 477O:S0 >WH
SUB 4860:GOT0 3140
3240 'secteur >VB
3250 MODE 2:S0SUB 4670:60SUB 4860 >AB
3260 DEG:PL0T 380,200:F0R F7XI TO 3 >MA
60 STEP 10:DRAW 320+60*C0S(F7.),200+
60*SIN(F7.):NEXT
3270 FOR Fï=45 TO 135:PL0T 320,200: >NB
DRAWR 6O«C0S(F7.) ,60*SIN(F7.) iNEXt
32B0 PLOT 320+60*COS(160),200+60»SI >C0
N(160):DRAW 320+60«C0S(340), 200+60*
SINI340)
3290 PLOT 320+60+COSI45),200+60«SIN >fH
(45):DRAW 320+120*COS(45>,200+120«S
IN(45)
3300 PLOT 320+80«COS(45),200+80»SIN >Ffl
(45)
3310 FOR F7.=45 TO 135 STEP lÛlDRAW >8K
320+80tC0S(F7.) ,200+80*SIN(F7.i :NEXT
3320 PLOT 320+120»C0S(45),200+120*S >HD
IN(45)
3330 FOR F£=45 TO 135 STEP 10: DRAW >TR
320+120*COS(FT.),200+120»SIN(F7.):NEX
T
3340 DRAW 320+60iC0SU35).200+60*SI >6F
N(45l
3350 LOCATE 41,5:PRINT CHR»U76) >ZH
3360 LOCATE 41,8:PRINT "b" ;>UJ
3370 LOCATE 45,14:PRINT "d" >VK
3380 fol*=CHR«(24):*o2*="":fo=l >YC
3390 LOCATE I3,59,8:PRINT 13, fol*;" >UJ
fl=(b.d)/4";-fal*
3400 LOCATE 13,59, 16:PRINT l3,*o2«; >EK
"b=d.";CHR*U84);".(";CHR*(176);"/3
60)"i*o2*
3410 IF INKEY(1S)=0 THEN 3490 >WL
3420 IF INKEY(47)a) THEN 3450 M
3430 IF INKEY(9)=0 THEN CLS:RETURN >CP
3440 BOTO 3410 >MG
3450 fo=fo+l: IF fo>2 THEN fo=l >XH
3460 ON «a BOSUB 3470, 34BO: GOTO 339 >CA
3470 tol*=CHR»(24):fo2«="":RETURN >BM
3480 fo2*=CHR$(24):*ol»= RETURN >BN
3490 CALL !cBB03:CLSIl:0N fo BOSUB 3 >SB
500,3540:CLSI1:S0SUB 4770:G0SUB 486
0:SOTO 3380
3500 tabl=2:tab2=2:G0SUB 4540 >XR
3510 tabl=2:tab2=6:60SUB 4570 >XA
3520 aire=R0UND((d2»arc)/4,4):LXAT ;>DF
E 11,2, 10:PRINTI1, "L'aire est de :"
:PRINT 11, aire;" c»";CHR*(255);" ."
3530 CALL &BB06: RETURN >RN'
3540 tabl=2:tab2=2:G0SUB 4540 >XW
3550 tabl=2:tab2=6:G0SUB 4420 >XY
3560 arc=R0UND(ld2»PI)«(an 9 l/360),4 >VR
):LOCATE ll,2,10:PRINT #1, "L'arc b
i une longueur":PRINT 11," de :";ar
c;" en."
3570 CALL 1BB06: RETURN >RT
3580 ' segment circulaire >YJ
3590 MODE 2: BOSUB 4670: BOSUB 4860 >AJ
3600 DE6:PL0T 380,200:FOR Fï=0 TO 3 >LT
60 STEP 5: DRAW 32O+60»C0S(F7.), 200+6
0«S1N(F7.):NEXT
3610 FOR F7.=30 TO 90 STEP 2: PLOT 32 >DN
0+60«CDS (F7.) , 200+60*SIN (F7.) : DRAW 32
0+6O4COS ( 1BÛ-FX) . 200+60»SIN ( 180-F7.)
:NEXT
3620 PLOT 320+60*C0S(30),200+60*SIN ,>AL
(30):DRAW 320*120*C0S(30), 200+120*3
INI30)
3630 FOR F7.=30 TO 150 STEP 10:DRPlW >QF
320+80»COS (F7.) , 200+80+SIN (F7.) : NEXT
3640 PLOT 320+120*C0S(30),200+120«S >BE
IN (30)
3650 FOR FX=30 TO 150 STEP 10: DRAW >TK
320+120*C0S (Fï) , 200+120*SIN(F7.) :NEX
T
3660 DRAW 320+60»C05(150),200+60»SI >6B
NI150)
3670 PLOT 320+60»COS(30),200+60*SIN >BR
(30):DRAWR 0,-40:DRAWR -8,4:M0VER
,-B:DRAWR 8,4:DRAW 320+60«C0S(150),
160+60»SIN(30):DRAWR B,4:M0VER 0,-8
:DRAWR -8,4:DRAWR 0,40
3680 PLOT 380, 200: DRAWR 0,-80: DRAWR ;UY
-8,4:hWER 0,-8:DRAWR 8, 4: DRAWR -1
20,0:DRAWR 8,4:hWER 0,-B:DRAWR -B,
4: DRAW 260,200
3690 PRINT CHR*(23);CHR»U);:PL0T 3 >PC
20,260:DRAWR 0,-30:DRAWR -2,4:M0VER
4,0:DRAWR -2,-4:M0VER 0,30:DRAWR -
2,-4:M0VER 4,0:DRAWR -2,4
3700 LOCATE 39,10:PRINT CHR»(24);"h >PR
■;CHR*(24);
3710 PRINT CHR»(23);CHR*(0); >WL
3720 LOCATE 40,13:PRINT "s":LXATE >UC
40, 18: PRINT "d"
3730 LOCATE 41,5:PRINT CHR*(176):L0 >YZ
CATE 41, 8: PRINT "b"
3740 fol»=CHR$(24):fo2$="":fo3*="": >FK
fo=l
3750 LOCATE 13, 59, 6: PRINT 13, fol*;" >9U
A=((b.d)/4)-"
3760 LOCATE 13,59, 7:PRINT 13," (s(d >RU
-2hl/4))";Fol*
3770 LXATE 13,59, 11:PRINT !3,to2»; >ZG
"h=ld/2>.(l-cos(";CHR«(176);"/2)P;
fo2*
3780 LOCATE 13,59, 16:F*INT l3,fo3*j
■s=d.sin(";CHR*(176);'72)";fo3*
3790 IF INKEY(18)=0 THEN 3880
3800 IF INKEY(47!=0 THEN 3830
3810 IF INKEY(9>=0 THEN CLS:RETURN
3E20 BOTO 3790
3830 fo=fo+l:IF fo>3 THEN Fo=l
3840 ON fo BOSUB 3850,3840,3870:601
3750
3850 tol*=CHR»!24!:*o2J="':to3»="":
RETURN
3860 to2*=CHR» (24) : tol*=" " : to3l=" " :
RETURN
3870 Ta3»=CHR«(24):fol*="":fo2»-
RETURN
3880 CALL !.BB03:CLSI1:0N *0 BOSUB 3
890, 3970, 4020: CLSI1 : BOSUB 4770: BOSU
B 486O:60T0 3740
3890 tabl=2:tab2=2:S0SUB 4540
3900 tabl=2:tab2=6:G0SUB 4600
3910 tabl=2:tab2=10:G0SUB 4460: IF h
aut>d2 THEN LOCATE ll,l,l:PRINT CHR
*(7):B0T0 3910
3920 tabl=2:tab2=14:B0SUB 4570
3930 airel=R0UND(((arc*d2>/4),4)
3940 aire2=R0UNDi (seg«(d2-2*haut) /4
1,4): IF aire2>airel THEN CLSIhPRIN
T #1:F0R f=l TO 8:PRINT 11, "DONNEES
INVALIDES":PRINT 11." RECOMMENCEZ
S.V.P.":NEXT:FOR G=l TO 3000:NEXT:R
ETURN
3950 aire=R0UND(airel-aire2,4):L0CA
TE ll,2,20:PRINTIl,"L'aire est de :
":PRINT 11, aire;" c»";CHR*(255l;" .
3960 CALL &BB06: RETURN
3970 tabl=2:tab2=2:G0SUB 4540
3980 tabl=2:tab2=6:G0SUB 4420
3990 HAUT=ROUND((D2/2)»(l-C0S(ftNGL/
2)), 4)
4000 LOCATE 11,2, 10:PRINTIl,"La hau
teur est de :":PRINT 11, haut;" cm."
4010 CALL !>BB06: RETURN
4020 tabl=2:tab2=2:GOSUB 4540
4030 tabl=2:tab2=6:G0SUB 4420
41J40 SEG=R0UND(D2«SIN(ANGL/2),4):L0
CATE ll,2,10:PRINTIl,"La mesure du"
:PRINT 11," segment s est de:":PRIN
T ll,seg;" cm."
4050 CALL 4BB06: RETURN
4060 ' ellipse
4070 MODE 2: BOSUB 4670:G0SUB 4860
4080 DEG:PLOT 340,200:F0R F7.=0 TO 3
60 STEP 5:DRAW 320+20»C0S(FÏ), 200+1
.00»SIN(F7.):NEXT
)WI
HF
>CR
NI
>XL
>GE
>JP
>J8
>JR
>PT
>YE
>AL
HH
RW
>XD
>Vt
>KR
m
>XP
>XR
m
>RL
>YC
>AC
HT
17
EU
4090 PLOT 300,200:»») 8,4:M0VER >ZH'
,-B:BRAHR -8,4:DRAWR 40,0:DRAHR -8,
4:N0VER 0,-B:DRAHR 8,4
4100 PLOT 320,300:DRAUR -50,0:DRAWR >PD
-4,-8:MOVER B,0:DRANK -4.8:DRAHR
,-200:DRAHR -4,8:M0VER 8.0:DRAI*) -4
,-B:MOVER -4,0:DRAWR 50,0
4110 LOCATE 34,13:FRINT "D":LOCATE >TC
41,13:PRINT "d"
4120 *ol«=CHR*l24l:fo2«="":*o=l >YV
4130 LOCATE *3, 59,B: PRINT #3, toi*;" >KD
A=(D.d.";CHR$(184);")/4";fol*
4140 LOCATE 13,59, 16:PRINT t3,to2»; >KH
•u=((IHd)A2).'|CHR«(184)|fo2$
4150 IF INKEY (181=0 THEN 4230 >W
4160 IF INKEY(47)=0 THEN 4190 >W
4170 IF INKEY(9)=0 THEN CLS:RETURN >CR
4180 GOTO 4150 >NA
4190 fo=to+l: IF fo/2 THEN fo=l >XK
4200 ON fo 60SUB 4210,4220:G0T0 413 >BD
4210 fol*=CHR$(24):*o2$="":RETURN >BE
4220 Fo2*=CHR*(24):*ol*="":RETURN ;BF
4230 CALL &BB03 : CLSi 1 : GOSUB 4240:CL >T0
StllGDSUB 4770I60SUB 4860: BOTO 4120
4240 tabl=2:tab2=2:S0SUB 4510 ,>XQ
4250 tabl=2:tab2=6:G0SUB 4540 >XZ
4260 IF dl<d2 THEN PRINT CHR»(7);:C >RV
LSI 1: GOTO 4240
4270 ON fo GOSUB 4280, 4300: RETURN >BC
4280 aire=R0UND((dHtd2»PD/4,4l:L0C >GT
ATE 11,2, 10:PRINTtl,"L aire est de
:":PRINT 11, aire;" c«":CHR$(255): "
4290 CALL 1BB06: RETURN
>RT
4300 per=R0UND(!(dl+d21/2)«PI,4):L0
>ZE
CATE ♦l,2,10:PRINTIl,"Le périmètre
est":PRINT 11," de ";per;" cm."
4310 CALL &BB06: RETURN
>RK
4320 ENB
>YH
4330 LOCATE ll,tabl,tab2:PRINTIl, "E
>LA
NTREZ LE COTE a en":PRINT#l," M -
->";:LINE INPUTIl,"",col»
4340 col=VAL(cols):IF cola) THEN LO
>VF
CATE ll,l,l:PRINTH,CHR$(7i:G0T0 43
30
4350 RETURN
>FF
4360 LOCATE ll,tabl,tab2:PRINT*l,"E
)LF
NTREZ LE COTE b en":PRINTIl," Ci -
->";:LINE INPUTIl,"",co2»
4370 co2=VAL(co2*):IF co2=0 THEN LO
M
CATE *1,1,1:PRINT*1,CHR*(7):G0T0 43
60
4380 RETURN
>FJ
4390 LOCATE ll,tabl,tab2:PRINTIl, "E
>TF
NTREZ LA LONGUEUR »":PRINTI1," en c
■ ->";:LINE lNPUTH,"",lol»
4400 lol=VAL(lol*):IF lol=0 THEN LO ,>UE
CATE ll,l,l:PRINTtl,CHR*(7):G0T0 43
90
4410 RETURN >FC
4420 LOCATE H,tabl,tab2:PRINTtl."E >CX
NTREZ L'ANGLE ":CHR*(174):PRINTtl. "
en BEGRES ~>«j:LINE INPUTIl.angl
»:angl=VAL(angl*):IF angl=0 THEN LO
CATE tl,l,l:PRINT*l,CHR*(7>:60T0 44
20
4430 RETURN >FE
4440 LOCATE U,tabl,tab2:PRlNTtl,"E ;CC
NTREZ L'ANGLE ";CHRS(177):PRINTI1,"
en BEGRES — >";:LINE INPUTIl.angl
*:angUVAL(angl$):lF angla) THEN LO
CATE I1,1,1:PRINTI1,CHR»(7):G0T0 44
40
4450 RETURN >FB
4460 LOCATE #l,tabl,tab2:PRINTIl,"E >CV
NTREZ LA HAUTEUR":PRINTI1," en en
— >"::LINE INPUT*l,haut»:haut=VALi
haut»!:IF haut=0 THEN LOCATE 11,1,1
:PRINTI1.CHR«(7):S0T0 4460
4470 RETURN >FJ
4480 LOCATE 11, tabl.tab2:PRINTIl,"E >LZ
NTREZ LE RAYON r en":PRINTIl," cm
->";:LINE INPUT*l,"\ra«
4490 ra=VAL(ra»):IF ra=0 THEN LOCAT >NH
E *1,1,1:PRINT CHR»(71:G0T0 44B0
4500 RETURN :>FC
4510 LOCATE tl,tabl, tab2:PRINTH,"E >PT
NTREZ LE DIAMETRE D":FRINTI1," en c
m ->"|:LINE INPUT#1,"",D1»
4520 D1=VAL(D1$):IF B1=0 THEN LOCAT ;MF
E I1,1,1:PR1NT CHR»(7):G0T0 4510
4530 RETURN >FF
4540 LOCATE ll,tabl,tab2:PRINTIl, "E .'PS
NTREZ LE BIAMETRE d":PRINTIl," en c
» ->";:LINE 1NPUTI1,"",D2*
4550 B2=VAL(B2$):IF B2=0 THEN LOCAT >MQ
E ll,l,l:PRINT CHR$(7):S0TO 4540
4560 RETURN >FJ
4570 LOCATE ll,tabl,tab2:PRINTIl,"E >YU
NTREZ LA L0NGUEUR":PRINTI1," D'ARC
b en c«":PRINT 11," ->"::LINE INPU
I#l,",art»
4580 arc=VAL(arc«i:IF arcaj THEN LO >TÏ
CATE *1,1,1:PRINT CHR$(7):60T0 4570
4590 RETURN >GB
4600 LOCATE ll,tabl,tab2:PRINTIl,"E >RX
NTREZ LE SEGMENT s":PRINTIl," en c
• — >"||L1NE INPUTtl,"",seg*
4610 seg=VAL(seg*):IF seg=0 THEN LO /TP
CATE ll,l,l:PRINT CHR$(7):G0T0 4600
4620 IF seg,>d2 THEN LOCATE 11,1, llP >AA
RINT CHR$(?):6QT0 4600
4630 RETURN ,'FB
4640 LOCATE tl,tabl,tab2:PRINTIl 1 "E >DK
NTREZ L'AIRE en":PRINTIl," cm";CHR
«(255):" — >";:UNE INPUTIl,"",alre
*
4650 aire=VAL(aire$):IF aire=0 THEN >AD
LOCATE I1,1,1:PRINTI1,CHR»(7I:G0T0
4640
4660 RETURN >FK
4670 >YK
4680 dessin contour écran >Zfl
4690 >ZB
4700 MODE 2:0RIGIN 0,0:PL0T 0,0.13: >HH
DRAHR 639,0:DRAWft 0,399:DRANR -639.
0: DRAHR 0,-399
4710 PLOT 3.3:BRAHR 633,0:DRAWF: 0,3 :>HE
93: DRAHR -633,0îDRAW 0,-393
4720 PLOT 4,80:DRAWR 631,0:PL0TR 0, >TJ
-3: DRAHR -631,0
4730 PLOT 165,3:0RAHR O,74:PL0TR 3, >QZ
0:BRANR 0,-74
4740 PLOT 440,80:DRAWR 0,317:PL0TR >VK
-3,0:DRAWR 0,-317
4750 PLOT 440,355:DRAWR 194,0:PL0TR >HW
0,-3:DRAUR -194,0
4760 LOCATE 64,2!PMNT "FORMULES" ,CQ
4770 HINDOU 11,2,23,2, 19:PAPER 11,1 >RK
:PEN I1,0:CLS 11
47B0 LOCATE 11, 3,3:PRINTI1, "CHOISIS >UP
SEZ LA BONNE"
4790 LOCATE 11, 3, 5:PRINTI1, "FORMULE :>RE
AVEC LA"
4800 LOCATE tl,3,7:PRINTIl. "BARRE D >UZ
ESPACEMENT. "
4810 LOCATE #1,3,13:PRINTI1,"CECI F >UT
AIT , VALIDEZ"
4820 LOCATE 11,3, 15:PRINTI1, "PAR EN >JT
TER ."
4830 HINDOU 12,57.79,5, 19:PAPER 12, ;UA
0:PEN I2,1:CLS 12
4840 HINDOU I4,23,79,22,24:PAPER 14 ;>UD
,0:PEN I4,1:CLS 14
4B50 LOCATE 2,23:PRINT "COPY=RETOUR >ZC
AU MENU": RETURN
4B60 LOCATE 14, 1, 1:PRINTI4,"A:5URF. >QA
,SECT. a:L0N6. b:LARG. r,R:RAYON
d,D:DIAM."
4870 LOCATE l4,l,3:PRINTI4,"s:EPAIS >UX
. e:DIAG. u=PERI. h=HAUT. ";CHR
*(176);":ANGLE"
4880 RETURN ;GD
4B90 MODE 2:PRINT:PRINT " VALEUR EN >PH
TREE ERRONEE ... UNE TOUCHE POUR RE
COMMENCER ...":CALL 8.BBÛ3: CALL iBBO
6:PRINT CHR*(7l:RUN«
18
LE CERVEAU
Eric AUBRY
LISTING 1
Le Master Mind n 'a plus
aucun secret pour vous,
et puis il y a bien
longtemps que vous l'avez
laissé de côté. Cela vient
sans doute du fait qu'il
faut être deux minimum
pour y jouer... et vous
êtes tout seul !
"Si seulement il existait
un jeu du même genre,
mais plus complexe, avec
la possibilité d'y jouer
seul, ça serait super
chouette !" Vous avez
pensé cela ? Alors c'est
gagné !
Le Cerveau vous permet
d'affronter un CPC impartial
qui choisit au hasard parmi
les dix possibles cinq formes
que vous devrez découvrir et
aligner dans le bon ordre en
un minimum d'essais. Votre
suggestion sera analysée et
vous saurez combien de
formes sont bien placées ou
non.
Trois niveaux de jeu sont
prévus (16, 12 ou 8 coups)
pour pousser votre logique à
son extrême limite et ainsi
vous faire devenir un de nos
futurs... cerveaux !
Taper les deux premiers
listings : une fois lancés,
ceux-ci généreront des fichiers
binaires (.BIN) qui seront
exploités par le programme
principal sauvé sous le nom
de "cerveau".
10 ' >Lfl
20 LARGEUR CARACTERE >U
30 • >LC
40 ' >LD
50 DATA 01, 09,50,21, El, 70,CD,D1 >XF
bO DATA BC.0D, 50,16,05, 43, 48,41 iXZ
70 DATA D2,O0,FE,02,C0,CD,06,B9 >YE
80 DATA DD,46,00,21,00,3B,3E,00 ,'XN
90 DATA B8,2B,09,C5,06,08,23,10 ,'X0
100 DATA FD.C1,10,F7,11,D9, 50,01 >YB>
110 DATA 08,0O,ED,B0,CD,09.B9,DD >ZB
120 DATA 7E,02,32,E5,50,CD,CC.BB >YH
130 DATA FD.21.D9, 50,06,08, D5.E5 >V«
140 DATA C5,F5,FD,CB,00,7E,CD,9B ,'ZA
150 DATA 50,FD,CB,00,76,CO,9B,50 >Y2
160 DATA FD,CB,00,6E,CD,9B,50,FD >ZX
170 DATA CB,00,66,CD,9B,50,FD,CB ,'ZB
180 DATA 00,5E,CD,9B,50,FD,CB,00 ,'ZC
190 DATA 56,CD,9B,50,FD,CB,00,4E . ZF
200 DATA CD,9B,50,FD,CB,00,46,CD >ZV
210 DATA 9B,50,F1,C1,E1,D1,2B,2B >YK
220 DATA F5,C5,D5,E5,CD,C9,BB,CD >ZH
230 DATA CC,BB,E1,D1,C1,F1,FD,23 >ZB
240 DATA 10,AC,C9,28,19,D5,E5,ED >ZA
250 DATA 4B,E5,50,C5,21, 00,00, 11 >YS
260 DATA 01,00,CD,ED,BB,C1,OB,78 ;>YD
270 DATA B1,20,F0,E1,D1,C9,D5,E5 >VZ
280 DATA 3E,00,CD,DE,BB,ED.4B,E5 >ZL
290 DATA 50,C5,21, 00,00,11, 01, 00 ,>XU
300 DATA CD,ED,BB,C1,0B,78,B1,20 >ZL
310 DATA F0,3E,01,CD,DE,BB,E1,D1 >ZE
320 DATA 09,00,00,00,00,00,00,00 >XE
330 DATA 00,00,00,00,00,00 >RX
340 ' >RH
350 'LECTURE DES DONNEES ET CREATI0 >RJ
N RSX
360 ' >RK
370 MEMORY MFFF >LC
380 FOR 1=1 T0 230:READ V»:PÛKE 1.4F >YN
FF+I,VAL("4"tO$):T=TWAL("l"+V$):NE
XT I
400 SAVE"CERVEAU2",B,KOOO,230 >¥N <
LISTING 2
10 A=0 >FK
20 READ A*: IF A*<>"-1" THEN POKE 46 >JA
000+A,VAL("li , 'tA»):A=A+l:GOTO 20
30 A=0 >GB
40 READ A«:IF A»<>"-1" THEN POKE 1.6 >HL
19
o
2A0+A,VALCV+A*):A=A+l:6OT0 40 EL5
E SAVE "CERVEAU4",B,t6000,li320
50 ' CERCLE
60 MTA 0F,0F,0F,0F
70 DATA 78 t F0,F0,El
80 DATA 78, E0, 70, El
90 DATA 78,80, 10. El
100 DATA 78,0,0,E1
110 DATA 68,0,0,61
120 DATA 68,0,0,61
130 DATA 48,0,0,21
140 DATA 48,0,0,21
150 DATA 68,0,0,61
160 DATA 68,0,0,61
170 DATA 78,0, 0,E1
180 DATA 78,80, 10, El
190 DATA 78,E0,70,E1
200 DATA 78,F0,F0,E1
210 DATA OF,0F,OF,OF
220 • TRIANGLE
230 DATA OF,OF,OF,OF
240 DATA 78,F0,F0,E1
250 DATA 78,E0,70.E1
260 DATA 78, CO, 30, El
270 DATA 7B,CO,30,E1
2B0 DATA 78,80, 10, El
290 DATA 78,80,10.E1
300 DATA 78, 0,0, El
310 DATA 78,0,0,E1
320 DATA 68,0,0,61
330 DATA 68,0,0,61
340 DATA 48,0,0,21
350 DATA 48,0,0,21
360 DATA 48,0,0,21
370 DATA 78,F0,F0,E1
380 DATA 0F,0F,0F,0F
390 ' TR1AN6LE INVERSE
400 DATA 0F,0F,0F,OF
410 DATA 7B,F0,F0,E1
420 DATA 48,0,0,21
430 DATA 48,0,0,21
440 DATA 48,0,0,21
450 DATA 68,0,0,61
460 DATA 68,0,0,61
470 DATA 78,0, 0,E1
480 DATA 78,0,0,E1
490 DATA 78,80, 10.E1
500 DATA 78,B0,10,E1
510 DATA 78,C0,30,E1
520 DATA 78,C0,30,E1
530 DATA 78,E0,70,E1
540 DATA 7B,FO,FO,E1
550 DATA OF,OF,OF,OF
560 ' CARRE
570 DATA OF,OF,OF,OF
580 DATA 78,F0,F0,E1
590 DATA 78,F0,F0,E1
.-LE
>hy
m
MA
•MF
>LH
H£
>LF
>LA
>LB
/LJ
>LK
• LD
ne
■NO
;N2
>NH
>RE
>NK
ND
m
>NG
•NH
>HD
ME
>LV
>LZ
■LH
>LJ
>LD
>LE
>LF
>NH
>NR
>TC
,NJ
NC
>LC
>LD
»LE
>Ut
;LN
>LS
LH
•MB
m
•NE
,NF
m
•m
•no
>TB
/NT
,NL
;NM
600 DATA 68,0,0,61
610 DATA 68,0,0,61
620 DATA 68,0,0,61
630 DATA 68,0,0,61
640 DATA 68,0,0,61
650 DATA 68.0,0,61
660 DATA 68,0,0,61
670 DATA 68,0,0,61
680 DATA 68,0,0,61
690 DATA 68,0,0,61
700 DATA 78,F0,F0,E1
710 DATA 78,F0,F0,E1
720 DATA 0F,0F,0F,OF
730 ' L0SAN6E
740 DATA 0F,0F,0F,0F
750 DATA 78,F0,F0,E1
760 DATA 7B,EO,70,E1
770 DATA 78, CO, 30, El
780 DATA 78,80, 10.E1
790 DATA 78, 0,0, El
800 DATA 68,0,0,61
810 DATA 48,0,0,21
820 DATA 48,0,0.21
830 DATA 68,0,0,61
840 DATA 7B,0,0,E1
850 DATA 78,80, 10, El
860 DATA 7B,C0,30,E1
870 DATA 7B,E0,70,E1
8B0 DATA 7B,F0,F0,E1
890 DATA OF,OF,OF,OF
900 ■ PENTAGONE
910 DATA OF,OF,OF,OF
920 DATA 78,F0,F0,E1
930 DATA 78,E0,70,E1
940 DATA 78,00,30, El
950 DATA 78,80, 10, El
960 DATA 7B,0,0,E1
970 DATA 68,0,0,61
980 DATA 46,0,0,21
990 DATA 48,0,0,21
1000 DATA 48,0,0,21
1010 DATA 48,0,0,21
1020 DATA 68,0,0,61
1030 DATA 78,0,0,E1
1040 DATA 78,80, 10, El
1050 DATA 78,F0,F0,E1
1060 DATA OF.OF.OF.OF
1070 ' ETOILE
1080 DATA 0F,0F,0F,OF
1090 DATA 78,FO,FO,E1
1100 DATA 68,E0, 70,61
1110 DATA 48,60,60,21
1120 DATA 68,20,40,61
1130 DATA 78,0,0,E1
1140 DATA 7B,80,10.E1
1150 DATA 48,0,0,21
1160 DATA 48,0,0,21
o
*
LJ
>LK
LL
••LH
>LN
•LF
LO
>LR
>LT
.LU
NE
NF
.'Nf
TA
>NR
>NK
>NU
■NN
>NA
>L«
>LL
>LF
>LG
>LP
>LH
(16
■UN
•m
NP
>NY
•»
NQ
>NJ
>NT
NH
m
>LL
>LV
■LF
>LQ
>LT
>LU
>LB
■ML
NH
.•NE
>PB
>PD
>NF
NH
>NP
■NO
.■MM
,NN
>LZ
>LA
1170 DATA 78,80, 10.E1
1180 DATA 78,0,0, El
1190 DATA 68,20,40,61
1200 DATA 48,60,60,21
1210 DATA 68, EO, 70,61
1220 DATA 78,F0,F0,E1
1230 DATA OF.OF,OF,OF
1240 ' ETOILE DAVID
1250 DATA 0F,0F,0F,0F
1260 DATA 78,F0,F0,E1
1270 DATA 7fl,E0.70,El
1280 DATA 78,C0,30,E1
1290 DATA 7B,00,10,E1
1300 DATA 48,0,0,21
1310 DATA 48,0,0,21
1320 DATA 68,0,0,61
1330 DATA 68,0,0,61
1340 DATA 48,0,0,21
1350 DATA 48,0,0,21
1360 DATA 78,80, 10.E1
1370 DATA 7fl.C0.30.El
1380 DATA 78,EO,70,E1
1390 DATA 7B,F0,F0,E1
1400 DATA OF.OF.OF.OF
1410 ' SPIRALE
1420 DATA OF.OF.OF.OF
1430 DATA 78,F0,F0,E1
1440 DATA 7B,FO,FO,E1
1450 DATA 78,80, 10.E1
1460 DATA 7B,70,E0,E1
1470 DATA 68,C0,30.61
1480 DATA 6B, 60, DO, 61
1490 DATA 68,A0,50,61
1500 DATA 68,60,50.61
1510 DATA 68.C0.D0.61
1520 DATA 7B,70,B0.61
1530 DATA 78,80, 60, El
1540 DATA 7B,F0,D0,E1
1550 DATA 68,0,30,E1
1560 DATA 7B,F0,F0,E1
1570 DATA OF,OF,OF,OF
15B0 ' COEUR
1590 DATA OF.OF.OF.OF
1600 DATA 78,F0,F0,E1
1610 DATA 78,F0,F0,E1
1620 DATA 78,30,C0,E1
1630 DATA 68,10,80,61
1640 DATA 48,0,0,21
1650 DATA 48,0,0,21
1660 DATA 48,0,0,21
1670 DATA 48,0,0,21
1680 DATA 68,0,0,61
1690 DATA 78,0,0, El
1700 DATA 78,80, 10.E1
1710 DATA 78,C0,30,E1
1720 DATA 78,E0,70,E1
1730 DATA 7B,F0,F0,E1
o
o
m
>HT
Nf
>NP
>NP
>NA
•PA
>XK
>PC
>NE
NN
>NH
>NV
>LU
>LX
Lt
LF
>LA
>LB
>NT
NH
>NQ
>PA
■NH
>XJ
>PB
ND
NE
>NT
>NP
NF
>NK
>KJ
>NL
NE
>NR
>NX
>ND
• MV
NH
>PH
>¥6
>PK
>NC
■ND
>NF
•NA-
'Lu
.■LE
LF
>LE
MF
>MZ
>NQ
•NF
>w
>NG
20
■■i^HHM^^B^^H
1740 DATA 0F,0F,0F,0F >PS
1750 ' PION BLANC >VF
1760 DATA 0F,0F,1E,87 >PB
1770 DATA 78,E1,78,E1 >ND
1780 DATA 7B,E1,78,E1 >NE
1790 DATA 1E,87,0F,0F >PE
1800 ' PION NOIR >YB
1810 DATA 0F,0F,0E,07 >NN
1820 DATA 08,01,08,01 >NN
1830 DATA 08,01,08,01 >NP
1840 DATA 0E,07,0F,0F >NZ
1850 END >ZC
1860 DATA DD,6E,0,DD,66,1,22,7C,A0, >¥E
DD,6E,2,2D,DD,66,4,25,CD,1A,BC,22.7
E,A0,6,10,C5,2A,7C,A0,ED,5B,7E,A0,1
74,0,ED,BO,2A,7E,AO,CD,26,BC,22,7E,
AO,21,4,O,ED,5B,7C,A0,19,22
1870 DATA 7C,A0,C1,10,DC,C9,DD,6E,0 >DM
,DD,66,1,22,7C,A0,DD,6E,2,2D,DD,66,
4,25,CD,1A,BC,22,7E,A0,6,B,C5.2A,7C
,A0,ED,5B,7E,A0,1,2,0,ED,B0,2A,7E,A
0,CD,26,BC,22,7E,A0,21,2,0,ED
1880 DATA 5B,7C,A0, 19,22, 7C,A0,C1,1 >LL
0,DC,C9,-1
1890 DATA DD,6E,0,DD, 66,1,22,10,63, >YL
DD,6E,2, 2D,DD, 66,4,25, CD, 1A.BC, 22,1
E, 63, 6, 10, C5, 2A, 1C, 63, ED, 5B, 1E, 63,
1,4,0,ED,B0,2A,1E,63,CD,26,BC,22,1E
,63,21, 4,0, ED,5B,1C, 63,19, 22
1900 DATA 1C,63,C1,10,DC,C9,DD,6E,0 >CH
,DD,66,1,22,1C,63,DD,6E,2,2D,DD,66,
4,25,CD,1A,BC,22,1E,63,6,8,05,2A,1C
,63,ED,5B,1E,63,1,2,0,ED,B0,2A,1E,6
3,CD,26,BC,22,1E,63,21,2,0,ED
1910 DATA SB, 10,63,19,22,10, 63,C1,1 >ZC
0,DC,C9,EF,F,20.EC,-1
LISTING 3
10 '*******♦*************♦********* .
************
20'» le cerveau:
foD,56,03,DD,6E,04,DD,66,05,ED,B8.C9
100 INK 0,0: INK 1,24: INK 2, 15: INK 3 >C¥
.8
110 CLEAR:PAPER 0:PEN 1:M0DE 1 >YR
120 LOCATE 6,13:PRlNT"V0ULEZ-VOUS L >CX
ES EXPLICATIONS ?"
130 A*=UPPER*UNKEY»):IF A»="" THEN >KZ
GOTO 130
140 IF A»="D" THEN GOTO 2920 >UQ
150 IF A$<>"N - THEN GOTO 130 >UR
160 60T0 3490 >8A
170 GOSUB 3690 >0H
180 CLS:BORDER 10 >MQ
30 '«
par Eric AUBRY >LC
40 ' M****************************
************
50 GOSUB 3620
60 MEMORY MFFF:L0AD"CERVEAU2\S<500
OiCALL 15000
70 LOAD"CERVEAU4",i,6000:POKE 164D0.
1
BO FOR 1=0 TO 20:READ ft«:fl=VflL("li"t
A$):POKE 16600*1, A:NEXT
90 DATA DD,4E,00,DD,46,01,DD,5E,02,
>DT
».
,>tv
190 HINDOU #1,2,20,2,24
200 HINDOU #2,22,39,2,18
210 HINDOU #3,22,35,20,24
220 «IND0W#4,37,39, 20,24
230 PAPER#1,2:PAPER#2,2:PAPER#3,2
240 CLS#1:CLS#2:CLS#3:CLS#4
250 PLOT 10,386, httRAWR 0,-374,1!»
AWR 314,0, 1:DRAWR 0,378, UDRAUR -31
4,0,1
260 PLOT 330,386,1:DRAHR 0,-290,1:0
RAWR 298,0, 1:DRAWR 0,282, UDRAWR -2
98,0,1
270 PLOT 330, 100,1: DRAW 0,-90, 1:DR
AWR 234,0, 1:DRAWR 0,90,1:DRAWR -234
,0,1
280 PLOT 57O,10O,l:DRAWR 0,-90,1: DR
AWR 58,0,1:DRAWR 0,90,1:DRAWR -58,0
,1
290 PLOT 192,382,3:DRAWR 0,-366, 3:P
LOT 512,382, 3:DRAWR 0,-272,3
300 BOSUB 790
310 X=336:Y=46: GOSUB 740
320 FLAGCONT=0:G0SUB B3O:G0SUB 920
330 PERD=0:COUP3=0:COUP=0:CHOIX=0:N
B=l
340 IF C0UP3=COUPMAX THEN GOTO 2670
uc
>DZ
350 A«=INKEYi:IF A»="" THEN GOTO 35 >BC
360 IF A$=CHR$(i(F3) THEN GOTO 430 >YF
370 IF A*=CHR$i!iF2) THEN GOTO 490 >ZD
380 IF A*=CHR«(13) THEN GOSUB 550 >ZT
390 IF A»=CHR*(224) THEN SOUND 1,50 >0M
0,20:CLS#1:0RIBIN 0,0:PLOT 192,382,
3:DRAWR 0,-366,3:FLAGC0NT=FLAGCDNT
XOR 1:B0SUB 830:G0T0 1420
400 IF A*=CHR«(I(9) THEN BOSUB 2060: >KN
BOTO 2170
410 IF A*=CHR*(«.7F) THEN SOUND 1.70 >RZ
0,20: BOSUB 2340
420 GOTO 340 >YK
430 IF X<528 AND Y=46 THEN GOSUB 77 >UZ
0:X=X+48:GOTO 470
440 IF X=528 AND Y=46 THEN 60SUB 77 >ZV
0:X=336:Y=94:GOTO 470
450 IF X<528 AND Y=94 THEN GOSUB 77 >UE
0:X=X+48:G0T0 470
460 IF X=528 AND Y=94 THEN 60SUB 77 >PC
0:X=336:Y=46
470 GOSUB 740 >JB
480 GOTO 340 >ZF
490 IF X>336 AND Y=94 THEN GOSUB 77 >UG
0:X=X-48:GOTO 530
500 IF X=336 AND Y=94 THEN BOSUB 77 >ZN
0:X=528:Y=46:60T0 530
510 IF X>336 AND Y=46 THEN GOSUB 77 >W
0:X=X-48:GOTO 530
520 IF X=336 AND Y=46 THEN GOSUB 77 >NH
0:X=528:Y=94
530 GOSUB 740 >HJ
540 BOTO 340 >ZC
550 'M AFFICHAGE CHOIX JOUEUR >TA
560 IF CH0IX=5 THEN SOUND 1.250,20: >BK
CHOI X=0: C0UP=C0UP+1 : COUP3C0UP3+ 1 : S
OSUB 2250:NB=1:G0T0 990
570 IF C0UP=8 THEN LOCATE #2,22,18: >XC
| PRINT #2,CHRt(10):0RIBIN 0,0:PLOT 5
12,3B2,3:DRANR 0,-270,3:COUP=COUP-1
580 IF X=336 AND Y=46 THEN CHOIXKN >AV
B)=l:AD=*i6000:G0T0 680
590 IF X=384 AND Y=46 THEN CHOIXKN >AE
B)=2:AD=!i6040:G0T0 680
600 IF X=432 AND Y=46 THEN CHOIXKN >AV
B)=3:AD=46OBO:GOT0 680
610 IF X=4B0 AND Y=46 THEN CHOIXKN >AM
B)=4:AD=Mi0C0:G0T0 680
620 IF X=52B AND Y=46 THEN CHOIXKN >AY
B>=5:AD=M>100:GOTO 680
630 IF X=336 AND Y=94 THEN CHOIXKN )AE
B)=6:AD=!i6140:G0T0 680
640 IF X=384 AND Y=94 THEN CHOIXKN >AP
B)=7:AD4.6180:G0T0 680
650 IF X=432 AND Y=94 THEN CHOIXKN >AX
B)=8:AD=t61C0:G0T0 680
660 IF X=480 AND Y=94 THEN CHOIXKN >AH
B)=9:AD=ic62O0:GOT0 680
21
>ET
>m
>LN
«F
>ZE
>TA
>ET
m
>TG
>VX
>VA
>ZF
>TB
670 IF X=52B AND ¥=94 THEN CHOIXKN >RY
B)*10iMM6240
680 CALL M>2A0.22+CH0IX*2,2+C0UP»2,
AD
690 CH0IX=CH0IX+1
700 SOUND 1,100,20
710 NB=NB+1
720 RETURN
730 '« DESSIN DU CADRE SELECTION
740 ORIGIN 0,0:PLOT X,Y,3:DRAtlR 0,
30,3:DRAW 30,0,3:DRAWR 0,30,3:DRAK
R -30,0,3
750 RETURN >ZH
760 '« EFFACEMENT DU CADRE SELECTI >TD
ON
770 0RI61N 0.0:PLOT X,Y.1:DRAHR 0,- )EK
30,1:DRANR 30,0,1:DRAWR 0,30,1:DRAH
R -30,0,1
780 RETURN
790 '»* AFFICHAGE DES FORMES
BOO FOR 1=0 TO 4:CALL 462A0.22+I»'.
23,fc6000+I*64:NEXT
810 FOR 1=0 TO 4:CALL M>2A0,22+I»3,
20,S<6140+I*64:NEXT
B20 RETURN
830 '*» CONTOUR CHOIXJEU/CONSUTATIO
N
B40 ORIGIN 0,0: IF FLAGC0NT=1 THEN 6 ;JD
OTO 860
850 IF FLAGCQNTa) THEN GOTO 890 >¥A
B60 PLOT 334,384,0:DRA«R 0,-274,0:D >ZB
RANR 290,0,0:DRAWR 0,274,0:DRA» -2
90,0,0
870 PLOT 14,3B4,1:DRAHR 0,-370,l:DR
SUR 306,0,1:DRANR 0,370, 1:DRAWR -30
6,0,1
880 RETURN
890 PLOT 14,384,0:DRAWR 0,-370,0:DR
AWR 306,0,0:DRAWR 0,370. 0:DRANR -30
6,0,0
9i» PLOT 334,384, 1:DRAWR 0,-274,1:0
Wm 290,0,1:DRAHR 0,274,1:DRAWR -2
90,0,1
910 RETURN
920 '** CHOIX ORDINATEUR
930 RANDOMIZE TIME
940 FOR 1=0 TO 4
950 A(I)=INT(RND»10)+1
960 POKE 46320+1, A(I)
970 NEXT
980 RETURN
990 '** ANALYSE CHOIX JOUEUR
1000 FOR 1=0 TO 4iA(I)=0:R(I+l)=0:N >EJ
EXT
1010 FOR 1=0 TO 4 >BC
1020 IF CH0IX1(I+1)=PEEK(M>320+I) T >XK
HEN A(I)=1:R(I+1)=2
>YV
1030 NEXT >KF
1040 IF R(l)=2 AND R(2I=2 AND R(3)= >NG
2 AND R(4)=2 AND R(5I=2 THEN GOTO 2
410
1050 J=l .'VD
1060 1=0 >VC
1070 IF R(J>=2 THEN I=0:GOSUB 1160: >KR
BOTO 1070
1080 IF A(I)=1 THEN GOTO 1150 >VE
1090 IF CH01XHJ)=PEEK(t,6320+I) THE >M»
N GOTO 1110
1100 IF 1=4 THEN GOSUB 1160:60TO 10 >AD
60 ELSE I=I+1:G0T0 1080
1110 A(I)=1 NF
1120 R(J)=1 >QE
1130 IF J=5 THEN GOTO 1170 ELSE J=J :>CA
+1
1140 GOTO 1060 >MA
1150 IF 1=4 THEN GOSUB 1160:G0T0 10 >AJ
60 ELSE 1=I+1:60T0 1080
1160 IF J=5 THEN GOTO 1170 ELSE J=J >LF
tl:RETURN
1170 I=1:J=1:AD=M>320+10+C0UP3 >YA
11B0 IF R(I>=1 THEN POKE AD+J-1,R<I >MJ
):GOTO 1210
1190 IF R(I)=2 THEN IF KM THEN 1= >NU
I+1:G0T0 1180
1200 IF R(I)=0 THEN IF KM THEN PO :>BX
KE AD+J-1,R(I):GOTO 1210
1210 IF KM THEN J=J+1:1=I+1:G0T0 >FA
1180
1220 1=1 >VB
1230 IF R(I)=2 THEN POKE AD+J-1,R(I >ML
):G0T0 1260
1240 IF R(I)=1 THEN IF 106 THEN 1= >NJ
I+1:G0T0 1230
1250 IF R(I)=0 THEN IF KM THEN 1= >NJ
I+1:G0T0 1230
1260 IF I<>6 THEN J=J+1:I=I+1:G0T0 >FB
1230
1270 J=l >VH
1280 FOR 1=10 TO 6 STEP -1 >RK
1290 POKE S.6325+10*CDUP3-I,CH01XUJ >DB
I
1300 J=J+1 >JH
1310 NEXT >KG
1320 I=5:K=5 >BF
1330 JEU=PEEK(!<6325+(C0UP3-im0+I) >CZ
1340 IF JEU=1 THEN AD=*6280:J=1 >YT
1350 IF JEU=2 THEN AD=M)290:J=2 >YX
1360 IF JEU=0 THEN J=0 >PG
1370 IF 1=10 THEN GOTO 1410 ELSE 1= >KL
l+l:K=K+l
1380 IF J=0 THEN K=K-1:G0T0 1330 >YX
1390 CALL 462DE,28+K,1+C0UP*2, AD >Vt
,1400 IF IO10 THEN 60T0 1330 >UQ
1410 SOUND l,5OO,2O:GOT0 340 M
1420 '»* RECAPITULATIF JEU >XK
1430 IF C0UP3M1 THEN C0UP4=11:SURP .'UD
LUS=1 ELSE C0UP4=C0UP3:SURPLUS=0
1440 C0UP2=C0UP4:C0UP1=1 >VK
1450 IF C0UF'2=0 THEN GOTO 1610 >XX
1460 FOR 1=0 TO 4 >CB
1470 JEU=PEEK (1.6325+ (C0UP1-1) HOHI >CC
1480 GOSUB 2810 >XG
1490 CALL &62A0,(I+1>»2,C0UP1*2,AD >AM
1500 NEXT >KH
1510 1=5: k=5 >BG
1520 JEU=PEEK(i6325+(C0UPl-l)*10+I) >CY
1530 IF JEU=1 THEN AD=M>2B0:J=1 >YU
1540 IF JEU=2 THEN AD=M>290:J=2 >YY
1550 IF JEU=0 THEN J=0 >PH
1560 IF 1=10 THEN GOTO 1600 ELSE 1= >KN
I+1:K=K+1
1570 IF J=0 THEN K=K-1:G0T0 1520 >YZ
1580 CALL J62DE,9+K,C0UPH2+1,AD >ZX
1590 IF IO10 THEN GOTO 1520 >UC
1600 COUP2=COUP2-1:COUP1=COUP1+1:GO >MU
TO 1450
1610 IF SURPLUS=0 THEN SOUND 1,500, >JV
20:FLAGC0NT=FLAGC0NT XOR 1: GOSUB 83
0:GOTO 340
1620 A*=INKEY*:1F A»="" THEN GOTO 1 >DT
620
1630 IF A»=CHR*(224> THEN SOUND 1,5 >LQ
0O,20:FLAGCONT=FLA6CONT XOR 1: GOSUB
830:G0T0 340
1640 IF A*=CHR*(I<F1) THEN GOTO 1680 >Atl
1650 IF A»=CHR$(!fO) THEN GOTO 1860 >AM
1660 IF A$=CHR*(49) THEN GOTO 2060 >ZX
1670 GOTO 1620 >NA
1680 »««•»»«**» DESCENTE >YH
1690 IF C0UP4=C0UP3 THEN SURPLUS=0: >AG
60TD 1620 ELSE C0UP4=C0UP4+1 : MONTEE
=0
1700 LOCATE»1,2,24:FKINT#1,CHR*(10I >LU
:PLOT 192,382, 3:DRAHR 0,-366,3
1710 FOR 1=0 TO 4 >BK
1720 JEU=PEEK(d6325+(C0UP4-l)H0+I) >CD
1730 GOSUB 2810 >XE
1740 CALL &62A0,(I+1)»2,22,AD >VX
1750 NEXT >LE
1760 I=5:K=5 >CD
1770 JEU=PEEK(M>325+(C0UP4-1>«10+I> >CJ
1780 IF JEU=1 THEN AD=li62B0:J=l >YB
1790 IF JEU=2 THEN AD=d6290:J=2 >YF
, 1800 IF JEU=0 THEN J=0 >PF
22
■■■■■■■■
^^■■^^H
1810 IF 1=10 THEN S0T0 1850 ELSE 1= >KU
I+1:K=K+1
1820 IF J=0 THEN K=K-1:GQT0 1770 >YE
1830 CALL 462DE,9+K,23,AD >TV
1840 IF IO10 THEN SOTO 1770 MJH
1850 BOTO 1620 >NA
1860 M********** MONTEE >¥H
1870 IF MONTEES THEN GOTO 1890 >¥Q
1880 C0UP5=C0UP4-10 >PB
1890 IF C0UP5=1 THEN GOTO 1620 ELSE >ZD
C0UP5=C0UP5-1 : COUP 4=C0UP4- 1 : MONTEE
=1
1900 LBCATE#1,1,1:PRINT#1,CHR»(11): >RD
LDCflTE» 1.1,1: F>RINT#1 . CHR* (11): PLOT
192,382,3:DRAWR 0,-366,3:LDCATE#l,l
,23:PRINT#1,"
1910 FOR 1=0 TO 4
1920 JEU=PEEK(S.6325+(C0UP5-1)»10+I)
1930 OOSUB 2810
1940 CALL 462A0, (1*11*2, 2. AD
1950 NEXT
1960 I=5:K=5
1970 JEU=PEEK(46325+(C0UP5-i>*10+I)
1980 IF JEU=1 THEN AD=46280:J=1
1990 IF JEU=2 THEN AD=46290:J=2
2000 IF JEIW) THEN J=0
2010 IF 1=10 THEN 60T0 2050 ELSE 1=
I+1:K=K+1
2020 IF J=0 THEN K=K-1:S0T0 1970
2030 CALL &62DE,9+K,3,AD
2040 IF IO10 THEN BOTO 1970
2050 GOTO 1620
2060 *********** SOLUTION
2070 CLS»3
2080 L0CATE#3,1,1:PRINT#3," Voie
l la Solution:"
2090 FOR 1=0 TO 4
2100 JEU=PEEK( 46320+1)
2110 GOSUB 2810
2120 CALL 462A0,24+U*2),22,AD
2130 NEXT
2140 L0CATE»3,5,5:PRINTI3, ■ (ENTER)"
2150 WHILE INKEY*OCHR*(13>:HEND
2160 RETURN
2170 CLSIl:L0CATE»l,2,10:PRINTtl,"V
oulez-vous refaire"
2180 LOCATEUR, 12:PRINT*1, "une par
tie ?"
2190 A»=UPPER*(INKEY«)
2200 IF A»=""THEN GOTO 2190
2210 IF A*="0" THEN SOTO 110
2220 IF A»="N" THEN MODE 2:END
2230 GOTO 2190
2240 END
2250 ********* NOMBRE DE COUPS
2260 SC0RE*=STR»(C0UP3)
2270 IF C0UP3<10 THEN SCDRE$="0"+SC
ORE»: SCDRE*=LEFT* (SCORE», 1 ) +RISHT* (
SCORE», 1)
2280 SC0RE»=RIGHT»(SC0RE*,2)
2290 ORIGIN 576,60
2300 CALL 45015,3, ASC(LEFT»(SCORE«,
1))
2310 ORIGIN 602,60
2320 CALL 45015, 3, ASC (RIGHT» (SCORE»
,D)
2330 RETURN
2340 ********** CORRECTION
2350 PAPER 2
2360 IF NB=1 THEN RETURN
2370 NB=NB-1:CH0IX=CH0IX-1
2380 LOCATE 22+CHQIX*2.2+C0UP*2:PP,I
NT" "
2390 LOCATE 22+CH0IX*2,3+C0UP*2:PRI
NT" "
2400 RETURN
2410 '*#******** GAGNE
2420 CLS#3: SOUND 1,400, 15: SOUND 1,3
0O,15:S0UND 1,200, 15:S0UND 1,100,15
:SOUND 1,200, 15: SOUND 1,100,15
2430 LOCATE#3.1,2:PRINT#3," EXAC
T !"
2440 FOR 1=0 TO 4
2450 JEU=PEEK(46320+I)
2460 GOSUB 2810
2470 CALL 462A0,24+(I»2),22,AD
2480 NEXT
2490 WHILE INKEY*0"":HEND
2500 CLSttl
2510 L0CATE#1,6,3:PRINTI1, "BRAVO !!
I"
2520 LQCATE#l,3,6:PRINTtl,"V0US AVE
1 GAGNE "
2530 L0CATEH,9,fliPRINTIl,"EN"
2540 L0CATE#l,6,10:PRINT»l,SGORE*;"
COUPS"
2550 L0CATE#1, 2, 10:PRINTH, "Voulez-
vous voir le
2560 L0CATE#1,4,12:PRINT#1, "classe»
ent ?"
2570 A$=UPPER»(INKEY»!
2580 IF A»="" THEN SOTO 2570
2590 IF A*="0" THEN GOTO 3920
2600 IF A«0"N" THEN GOTO 2570
2610 GOSUB 4340
2620 LOCATEUR, 10:PRINTI1, "Voulez-
vous refaire"
2630 L0CATE»l,4,12:PRINTil,"une par
tie ?"
2640 IF A»="0" THEN GOTO 110
,2650 IF A*="N" THEN :MODE 2:END
>YB'
2660 GOTO 2640
•ND
>TK
2670 '*#**#+#**** PERDU
>YH
>KT
26B0 GOSUB 2060
>X6
2690 CLStl
>LK
2700 POINTU," Doma9e,":PRINT»
>FE
>XZ
1
>MA
2710 PRINTM," Vous n avez pas": P
>PY
>FJ
RINTtl
2720 PRINTM, "Kussi é trouver la"
>KJ
>MG
2730 PRINTK1," SOLUTION"
>XL
>GK
2740 LDCATEItl , 2, 10: PRINTK1 , "Voulez-
vous refaire"
m
>FB
2750 L0CATE#l,4,12:PRINT#l,"une par
•m
>YB
tie ?"
>AA
2760 A»=UPPER»(INKEY«)
>RE
>TT
2770 IF A«="" THEN GOTO 2760
>UU
HV
27B0 IF A*="0" THEN GOTO 110
>UL
>KH
2790 IF A»="N" THEN MODE 2: END
WD
2B00 SOTO 2760
>NC
>KK
2810 '**»******* TRADUCTION Nu»ero-
>Adresse
>YD
>EK
2820 IF JEU=1 THEN AD=46000: RETURN
>CF
>XK
2830 IF JEU=2 THEN AD=46040: RETURN
>CM
■LB
2840 IF JEU=3 THEN AD=460B0: RETURN
>CU
2850 IF JEU=4 THEN AD=460C0: RETURN
>CH
2860 IF JEU=5 THEN AD=46100: RETURN
• CO
>GJ
2870 IF JEU=6 THEN AD=46140:RETURN
>cx
2880 IF JEU=7 THEN AD=461B0:RETURN
.CD
CA
2890 IF JEU=8 THEN AD=461C0:RETURN
>CT
>gc
2900 IF JEU=9 THEN AD=46200: RETURN
>C9
>XF
2910 IF JEU=10 THEN AD=46240: RETURN
>CA
2920 ' HI I HHH I EXPLICATIONS >YF
2930 MODE 2: II* 1,0 >ML
2940 TEXT*="LE CERVEAU": FOR 1=1 TO >DJ
8
2950 FOR J=l TO LENITEXT») >UP
2960 ORIGIN 300-(I»45)+J*(8*I),414- >EA
1*16
2970 CALL 45015, I,ASC(MID»(TEXT»,J, >RE
1)):S0UND 1,INT((RND(1)*1)*100),10
2980 NEXT J >WF
2990 NEXT I >*
3000 LOCATE 32,9:PRINT"par AUBRY Er >KZ
ic"
3010 WNDOW»1,2,79,10,24:PAPER#1,1: >TA
PEN#1,0:CLS#1
3020 PRINTI1," Ce jeu est directe >L0
•ent inspirf du clllbre MASTER-MIND
.Sauf qu'ici nous ne jouons pas a
vec des conbinaisons de couleurs ma
is de formes .L'ordinateur nous
propose de choisir parmis 10 forme
s possibles ."
3030 PRINTU >GC
3040 PR1NTM," Le but du jeu est d >LB
e dfeouvrir une combinaison de 5 fo
23
rmes que 1 ordinateur a choisi ,et
ce le plus rapidement possible ."
3050 PRlNTtl
3060 PRlNTtl," Pour faire votre en
oix parmis les formes proposées ,il
suffit de dfplacer le carrf de
sdection jusque la forme voulue a
vec les flïches gauche et droi
te puis de la valider par la touche
ENTER' ."
3070 PRINTtliPRlNTtl," Si jamais v
ous voulez effacer une forme priefd
emment validle , appuyez sur la t
ouche 'DEL'."
3080 LQCflTEti,49,14lPRINTtl, "Presse
z <ENTER>"
.3090 INK 1.24:HHILE INKEY*-' >CHR$(13
! : «END
3100 CLStl
3110 PRlNTtl," Lorsque vous voule
z revoir les coups antïneurs ,appu
yez sur la touche COPY' .Si t
ous les coups peuvent [tre affichfs
, l'ordinateur revient auto- -mat
îquement en mode jeu ."
3120 PRlNTtl
3130 PRlNTtl," Si tous les coups n
e peuvent [tre affichfs .vous pouve
- pressez
vous remontez dans 1
- pressez
vous descendez dans
3140 PRlNTtl
3150 PRlNTtl,
;CHR*(240);"'
es coups jouîs
3140 PRlNTtl
3170 PRINT»,"
;CHR$<241>;
les coups joufs"
3180 PRlNTtl
3190 PRlNTtl," - pressez C
DPY' : vous revenez en mode jeu"
3200 L0CATEtl,49, 14:PRINT#l, "Presse
z <ENTER>"
3210 HHILE INKEY»OCHR»(13):WEND
3220 CLS41
3230 PRlNTtl," Si vous 'donnez vo
tre langue au chat' , appuyez sur la
touche 'TAB' .L'or- -dinateur af
fichera la solution ."
3240 PRlNTtl
3250 PRlNTtl," Le nombre de coups
maximum dont vous disposez dCpend
du niveau que vous avez choisi
3260 PRlNTtl
3270 PRlNTtl,"
- DCbutant 16 coups"
3280 PRlNTtl >BK
,-TR
3290 PRlNTtl," >LK
- Confirme 12 coups"
3300 PRlNTtl
3310 PRlNTtl,"
- Expert 08 coups"
3320 PRlNTtl
3330 PRlNTtl , " Le nombre de coups >FN
joufs est en permanence affich: da
ns le bas de 1 ' îcran . "
3340 LOCATEtl.49, 14:PRINTtl, "Presse
z (ENTER;-"
3350 UHILE INKEYtOCHR$(13> :I€ND
3360 CLStl
3370 PRlNTtl," Pour valider une c
ombinaison .appuyez sur ENTER"
3380 PRlNTtl
3390 PRlNTtl." L'ordinateur rfpond
@ la combinaison que vous lui avez
soumis par des pions blancs et de
s pions noirs ."
3400 PRlNTtl
3410 PRlNTtl," - Pion blan
c : la couleur est prfsente dans la
combinaison S trouver mais
elle est mal plade ."
3420 PRlNTtl
3430 PRlNTtl." - Pion noir
: la couleur est prîsente dans la
combinaison e trouver et e
lie est bien placle ."
3440 PRlNTtl
3450 PRlNTtl,"
Voile ,@ vous de jouer !"
3460 L0CATEtl,49, 14:PRINTtl, "Presse
z <ENTER>"
3470 NHILE INKEY»<.)CHR*U3):WEND
3480 MODE 1:G0T0 160
3490 '»*»♦*♦»**»» NIVEAU DE JEU
3500 CLS
3510 L0CATE 1 1,2: PRINT "Quel niveau >TR
de jeu"
3520 L0CATE 11,4:PRINT " dîsirez-v >PC
ous ? "
3530 L0CATE 1,10:PR1NT" <1>.. >MG
.DEBUTANT... 16 coups":PRINT
3540 PRINT" <2>. . .CONFIRME.. . >XB
12 coups":PRINT
3550 PRINT" <3>... EXPERT ... >»C
GL
>JY
>GE
Tx
>6H
>KT
>TA
■BN
>ND
>YJ
>ZH
•GF
08 coups": PRINT
>LH
3560 A«=INKEY»
■W
3570 IF A*<"1" OR A$>"3" THEN GOTO
>co
3560
3580 IF A»="l" THEN C0UPMAX=16
>XK
>BH
3590 IF A*="2" THEN C0UPMAX=12
■XH
>LR
3600 IF A»="3" THEN C0UPMAX=8
WE
3610 GOTO 170
>FD
IS
3630 SYMBOL AFTER 64 >PC
3640 SYMBOL 64,WO,«0,W8,M:,!i7C,!i >GV
CC&76
3650 SYMBOL I23,W,48,43C,W4,17E,!| >GB
60,&3C
3660 SYMBOL l25,l40,H0,KC,W6,t7E >JB
,WO,«C
3670 SYMBOL 91,M8,«4,t 1 3C,! 1 66,t,7E, >HY
ti60, 43C
3680 RETURN >GA
3690 ' 1I1 II H1H TABLEAU DE CLASSEM >ZA
ENT
3700 MODE 1 ;PF
3710 L0CATE 13,10:PRINT"Donnez votr >X
e nom : "
3720 L0CATE 16,12:PRINT" " ,>BU
3620 '*♦«»«»«* CARACTERES FRANCA >YD
3730 J=0:B*="" >JH
3740 L0CATE 16+J,12:PRINT CHR*(24i; >PR
■."iCHR$(24>
3750 A»=UFPER<( INKEY»): IF A*="" THE >MD
N GOTO 3750
3760 IF A*=CHR*(17F) THEN B0T0 3840 >AH
3770 IF A*=CHR»(13) THEN GOTO 3890 >ZV
3780 IF J=10 THEN GOTO 3750 >l*
3790 LOCATE 16+J,12:PRINT A* >NL
3800 J=Jtl >KE
3S10 B«=B*+A» >AK
3820 IF J=10 THEN GOTO 3750 >UQ
3830 GOTO 3740 >NF
3840 IF J«0 THEN GOTO 3750 >TX
3850 IF J=10 THEN GOTO 3870 >UX
3860 LOCATE 16+J,12:PRINT"." W
3870 B»=LEFT«(6»,LEN(B»)-1) >VJ
3880 J=J-1:60T0 3740 >NM
3890 B*=6»+STRING»(10-LEN(B»>,"»"> >BA
3900 N0M*=B» >CA
3910 MODE 1:RETURN >NV
3920 ' IIUIIIIIII CLASSEMENT >YG
3930 NB=PEEK(164D0):iF NB=1 THEN A= >HH
liBOTQ 4030
3940 FOR A=l TO NB >LD
3950 SC0RE=f>EEK(!.64D0+A*ll) ,'WF
3960 IF C0UP3(=SC0RE THEN INF=1:G0T >JF
3980
3970 NEXT A:INF=0:GOT0 4020 >VA
3980 INF=l:ADR=!c64D0+A+(A-l)»10:L0N >RZ
G=1,65AD-ADR+1
3990 FOR la) TO 10 >LÛ
4000 CALL i,6600,«>5AD,M>5AE,LONG >ZF
4010 NEXT >K6
4020 IF INF=0 THEN A=NB >QF
4030 FOR 1=1 TO 10 >LB
4040 A*=MID»(N0M*,I,1I >0C
4050 POKE M>4DO+(I-ll+A+((A-l>tlO), >GD
'
24
ASC(At)
4060 N£XT I
4070 HODE 2:UK 1,0
4080 TEXT*="LE CERVEAU":FOR 1=1 TO
2
4090 FOR J=l TO LEN(TEXTf)
4100 ORIBIN 90-<I»45)+J*(8*I), 250-1
• 16
4110 CALL 45015.1, ASC (MID*<TEXT»,J,
i ) ) : SOUND 1,INT((RND(1)+1)*100>,10
4120 ORIGIN 520- ( 1*45) +J* (B*I » , 250-
1*14
4130 CALL 45015,1. ASC (MIDt iTEXIt. J.
1 ) i : SOUND 1,INT<(RND(1)+1)*100),10
4140 NEXT J
>VF
4150 NEXT I
>VF
4160 FOR J=l TO LEN(TEXT»i
>UJ
4170 ORIBIN 45+J»8,202
>QJ
4190 CALL 45015, 1,ASC(MID*(TEXT»,J,
>RY
1)):S0UND 1,INT((RND(1)+1>»100),10
4190 ORIBIN 475+J*B,202
«
4200 CALL 45015,1, ASC(MID*(TEXT*,J,
RQ
1 ) ) : SOUND 1,INT((RND(1>*1)*100),10
4210 NEXT J
>VD
4220 TEXTÎ-'Appuyez sur une touche"
ng
4230 FOR J=l TO LENITEXT»)
U6
4240 ORIBIN 40+J*24,19
,0F
4250 CALL 45015,3,ASCIMID$(TEXT«,J, >R¥
1)):SDUND 1.INT1 |RND(1)+1H100) ,10
4260 NEXT J >YJ
4270 ORIBIN 0,0 >ÏE
42B0 PLOT 199,368,1:DRAW 209,0,1:0 >XC
RAW 0,-338, 1 : PLOTR 1.0,1:DRAW 0.3
38,1
4290 PLOT 408,30. kDRAW -209,0,1:0 ,ïB
RAW 0,33B,1:PL0TR -1.0,1:DRAW 0,-
4300 PLOT 198,36B,1:DRAW 0,20,1:PL >W1
OTR 1,0,1:DRAMR 0,-20,l:PL0T 198,38
8,1
4310 DRAW 210,0, 1:DRAUR 0,-20,1:PL >AD
OTR 1,0. l:DRAWR 0,20,1
4320 PLOT 299,3B8,1:DRAW 0,-358.1: M
PLOTR 1,0.1: DRAW 0,358,1
4330 TA6 <ZD
4340 PLOT 200,384 >LK
4350 PRINT" NOM "i iRB
4360 PLOT 303,384 >LR
4370 PRINT" NB DE COUPS ": >VL
43B0 TAGOFF 'BH
4390 POKE 464D0+A*11.C0UP3 ;>UR
4400 FOR 1=1 TO NB ;>LP
4410 LOCATE 27,2*1 >ML
4420 FOR J=l TO 10 >LF
,4430 PRINT CHR*(PEEK(464D0+J+(I-1)« >GQ,
11));
4440 NEXT J
4450 LOCATE 44,2*1
4460 PRINT PEEK(464DB+(I-1I»11!
4470 NEXT I
4480 IF INF=0 THEN LXATE 26.2+NB E
LSE LOCATE 26,2+A
4490 PRINT")"
4500 IF INF=0 THEN LOCATE 37,2+NB E
LSE LOCATE 37,2+A
4510 PRINT'C"
4520 IF INF=0 THEN LXATE 39,2+NB E
LSE LOCATE 39,2+A
4530 PRINT"»»»"
4540 IF INF=0 THEN LOCATE 47,2+NB E
LSE LOCATE 47,2+A
4550 PRINT"\««":INK 1,24
4560 WHILE INKE¥*="":WEND
4570 «ODE 1:NB=NB+1:IF NB>20 THEN N
B=20
4580 POKE 464D0.NB
4590 LOCATE 7, 12:PRINT"Voulez-vous
retire une partie ?"
4600 A»=UPPER«(INKEY»):IF AJ="" THE
N GOTO 4600
4610 IF A*="0" THEN BOTO 110
4620 IF AlO-N" THEN BOTO 4560
,4630 MODE 2: END
>VJ
MP
>YX
WA
>UT
>PC
>UP
:ND
UN
NN
m
,>UF
JVC
FT
m
.•PH
BLUE-CARDS
Manuel DA SILVA
Aurez-vous assez de
mémoire visuelle pour
réussir à réunir deux
par deux chacune des
vingt-quatre cartes en
moins de 25 coups ?
Essayez voir, à la
rédaction, nous n'avons
pas pu descendre en
dessous de 27...
Blue-Cards, avec des
cartes comportant des
dessins ou des mots, du
brainstorming en
perspective pour les
jours de pluie.
V
10 REM a*************************** >YH
20 REM ♦«
#* >DJ
30 REM *»*
BLUE-CARDS
» >TE
40 REM M»
*
50 REM *♦»
60 REM *»*
»* >EA
(0 1988 NOGENT
«» >VK
»* >EC
70 REM *«
D.S. MANUEL
»« >TQ
80 REM **» **
•EE
90 REM #t******#**#**#**«*tt***t****
>ZH
100 REM
TH
110 MODE 0:CLEAR:CALL 4BC02:PAPER
>XX
:PEN 1:C=2:B=3:I=1
120 INK 0,0:1*: 1,26:INK. 2,4:INK 3,
MP,
12:BORDER 0:PAPER 0: IV*=CHRi<24!
130 CALL 4BB48:P0KE 4BDEE.4C9
M
140 SYMBOL AFTER 32
>NC
150 SYMBOL 110,6,6,6,6,6,102,60,0
ZJ
160 SYMBOL 112,104,96,96,96.96,98,2
>E1
54,0
170 SYMBOL 117,60,102,96,96,96,96,3
LA
2,28
180 SYMBOL 11B,0, 0,0,0,0, 0,254,254
AH
190 SYMBX 119,254,98,96,96,96,96,1 >GT
04,120
200 SYMBOL 124,126,102,102,102,102,
,'JJ
102,102,0
210 SYMBX 125,102,102,102,102,102,
•>LG
102,252,252
220 SYMBX 126,192,192,192,192,192,
,JJ
102,60,0
230 SYMBX 127,102,102,102,102,102,
JC
108,248,0
240 SYMBX 128,96,96,96,98,102,254,
>EN
25
254
250 SYMBOL 129,102,102,102,102,102, >HA
102,60,0
260 SYMBOL 130,108,102,102,102,102, >JV
102,226,0
270 SYMBOL 131,24,60,102,102,102,10 >JF
2,126,126
280 SYMBOL 132,252,102,102,102,102, >LM
100,124,124
290 SYMBOL 133,60,102,192,192,192,1 >LL
92,192,192
300 SYMBOL 134,248,108,102,102,102, >LM
102,102,102
310 SYMBOL 135,240,240,96,96,96,96, >FC
96,96
320 SYMBOL 136, 102, 102, 102, 102, 102, >LY
102,102,102
330 SYMBOL 137,252,102,102,102,102, >LQ
102,124,124
340 X*="PRESS£Z UNE TOUCHE ":Z*=X* >EE
350 CLS:TI$=CHR*(132)+CHR*(135>+CHR JGD
*(136)tCHR*(119)tCHR$(118)tCHR»(133
)+CHR$(131)+CHR*(137)+CHR»(134)+CHR
*(117)
360 TIl»=CHR»(125>+CHR«(128HCHR*ll >PF
29)*CHR*(112)*" "+CHR*(126)+CHRJ<12
4)tCHR$(130)*CHR*(127)tCHR$(110)
370 aS:MNDOWU,5,l6,22,25:PAPER#l >XA
?,8:CLS*1:PEN»1,I
380 PEN#l,0:PRINT»l,CHR*(212)TflB(12 >NP
)CHR$(213);:PRINT#l:PRINTtl:PRINT*l
,CHR»1215)TAB<12)CHRS(214);
390 Y=23:Y1=24 ->UH
400 MHILE INKEY*="" >NE
410 WHILE INKEYJO UEND >VH
420 PEN C:L0CATE 6,Y:PRINT IV$TI*IV >XV
$:PEN B:L0CATE 6,Y1:PRINT IWIWIY
»
430 C=C+1:B=B+1: 1=1+1 >F' W
440 IF C>13 OR B>13 OR D13 THEN O >TJ
1 : B=2: 1=3 ELSE IF C=5 OR 6=5 OR 1=5
THEN C=C+1:B=B+2:I=I+1
450 IF PASS=0 THEN FOR X=l TO 18: LO >LM
CATE 1,25*X:PRINT CHR*(11):F0R Z=l
TO 150:NEXT Z.X
460 IF IOB THEN PEN B:LOCATE 2,24: >BX
PRINT MID»(Z», 1, 18) ; :Z*=MID*(Z*,2> :
IF LEN(Z»K19 THEN Z*=Z*+X*
470 BORDER l >EH
480 FOR H=l TO 36:M0VE 0,398-H*10: >CM
DRAM <H+1!*60,40,I:NEXT H
490 PASS=1:Y=5:Y1=6:«END >V6
500 ' >"F
510 MODE 1 >HE
520 SYMBOL AFTER 32 >NE
530 DIM CARTE*(24),CAR»(24>,CAR1*<2 >AA
4),CH(24):REC=25:ES=1
540 MODE 1:INK 0,0:11*. 1,26:1*: 2,4 >XR
:INK 3, 12: BORDER 0: PAPER 2: IV»=CHR*
(24)
550 OUT &8C00,2:DUT 4BD0O, 46: OUT &B >VF
C00,7:0UT UD00.30
560 SYMBOL 110,72,72,136,145,162,68 >HE
,72,144
570 SYMBOL 111,56,88,152,24,24,24,5 >EP
6,84
580 SYMBOL 112,48,56,92,148,20,0,1, >CH
590 SYMBOL 113,90,60,24,60,60,24,25 >FR
5,255
600 SYMBX 114,0,0,1,3,5,1,128,224 >AH
610 SYMBOL 115,14,13,249,225,65,34, >ET
5,10
620 SYMBOL 116,36,20,146,202,169,14 >HH
8,76,38
430 SYMBOL 117,4,4,8,8,16,17,34,36 >AT
640 SYMBOL 118,8,17,35,71,135,11,27 >DV
,56
650 SYMBX 119,138,138,138,10,6,2,1 >FF
93,96
660 SYMBOL 120,189,153,153,153,153, >HD
153,153
670 SYMBOL 121,82,81,80,80,96,64,12 >DA
8,0
680 SYMBOL 122,16,8,132,66,33,16,24 >DK
,12
690 SYMBOL 123,64,64,32,32,16,144,7 >M
2,8
700 SYMBOL 124,0,0,0,0,0,1,2,2 Mi
710 SYMBOL 125,64,64,64,132,132,4,4 >C«
,4
720 SYMBOL 126,36,40,41,40,36,35,39 >EY
,106
730 SYMBOL 127,24,24,153,90,90,153, >SJ
24,219
740 SYMBOL 128,36,20,148,20,36,196, >HQ
100,212
750 SYMBOL 129,4,4,4,66,66,65,64,32 >BN
760 SYMBX 130,0,0,0,0,0,0,128,128 >AF
770 SYMBOL 131,0,0,0,0,0,0,0,0 >MJ
7B0 SYMBOL 132,31,32,69,65,65,65,64 >EC
,64
790 SYMBOL 133,129,96,224,33,34,2,1 >FH
29,66
800 SYMBOL 134,255,255,126,255,24,2 >HX
4,24,24
810 SYMBX 135,129,2,7,132,68,64,12 >ER
9,66
820 SYMBX 136,240,8,164,132,132,13 >FE
2,4,4
830 SYMBX 137,0,0,0,0,0,0,0,0 >HX
26
WïV*
■■■■■i^mhhhmijmm
840 REM :>UJ ID»(T*,Z,1) 1460 SYMBOL 177,1,5,2,4,8,28,32,255 ?BX
850 a*=CHR»(131!+CHR*(132)+CHR»(133 >AG 1160 NEXT >KK
)+CHR*(134i+CHR*(135)+CHR*(136)+CHR 1170 80SUB 4490 >XJ 1470 SYMBOL 17B, 169,207,49, 1,1,1,1, ;>DR
«(137) 1180 A»=UPPER*U*EY»):IF A*="" THE >BC 255
860 b$=CHR$ ( 1 24) +CHR* ( 125) +CHRJ 1 126 >flP N 1180 1480 M»*»»»»»»»»»»»»»******»»*»» ,>YF
)+CHR$(127)+CHR«U28)+CHR$(129)+CHR 1190 IF A*="T" THEN CH0IX=t ELSE CH >BC « m » n
$(130) 0IX=0 1490 '»«»♦«*» FENETRE »*«*»*»•»*»»» ,>YB
870 c*=CHR*U17)+CHRJ(118)tCHR*U19 >AC 1200 IF MOT AND MOCHRK13] TH >FE «HH CARTE*(3> ♦***
)+CHR*(120l+CHR*(121>+CHR»(122)+CHR EN 1180 1500 SYMBOL 179,255, 12B, 135,132,133 >NL
«(123) 1210 PAPER 1:FCR X=l TO 25 >TB ,133,133,133
880 d$=CHR* (110) +CHR$ ( 11 1 î +CHR* (112 >AQ 1220 LOCATE 1,25+X:PRINT CHRtdl) Xf 1510 SYMBOL 180,255,0,255,0,255,250 >JC
)+CHRt(113)+CHRt(114)+CHR$lll5)+CHR ,245,233
«(1161 1230 FOR Z=l TO 50:NEXT Z,X >VD 1520 SYMBOL 181,255, 1.225,161,33.33 GR
890 REM >VD 1240 PAPER 0:CLS:INK 0,0:1*. 1,26:1 >B6 .33,33
900 Y=10:X=2: PAPER 1:PEN >UH W, 2,6:1* 3,2:B0RDER 1530 SYMBOL 182,133, 133,133,133,133 >MF
910 FOR X=2 TO 17 >EF 1250 OUT S<BC00,2:DUT MD00,45 : OUT >XX ,133,133,133
920 LOCATE X,10:PRINT IV»a»IVt >Y6 4BC00,7:0UT Î.BD00.28 1540 SYMBOL 183,233,233,235.233,233 ,-NM
930 LOCATE X.lhPRINT IV*b»IV* >ZB 1260 ' Hmmimm i llHHHHI I I >YB ,233,235,233
940 LOCATE X,12:PRINT lV*ctIV* >ZE I II II1 IHII I I I 1550 SYMBOL 184, 161,33,33,33,161,33 >Gkl
950 LOCATE X,13:PRINT IV*dtIV$ ;ZH 1270 '«H4HHHHHHH VISAGE "PROFIL' >YC ,33,33
960 FOR LX=1 TO 3:L0CATE X-1,Y+LX:P >ZH ' CARTE*(1> ♦» 1560 SYMBOL 185,132,135,132,136,144 >NV
RINT IV»" "IVS:NEXT 1280 SYMBOL 161,255,128,129,131,135 ,'NL ,160,192,255
970 NEXT:PAPER 1:PEN 1 : BORDER 26 >AL ,135,132,141 1570 SYMBOL 186,9,249,8,9,10,12,8,2 >BK
980 LOCATE 1,25:PRINT IV«CHR»(212lI ,'FA 1290 SYMBOL 162,255,0,176,127,158,2 >KR 55
V»; 49,24,142 1580 SYMBOL 187,33,97,161,17,9,5,3, >DH
990 LOCATE 40,25:FWNT IV*CHR*(213) >60 1300 SYMBOL 163,255,1,1,1,129,225,1 >6H 255
IV*; 61,145 1590 ' M*************************** >YH
1000 FOR T=l TO 7:L0CATE 1,25+TlPRI >PG 1310 SYMBOL 164,144,160,164,156,137 >N9 «tu*»»».*»»»*»*»»»
NT CHR* (11); ,143,136,144 1600 '«HHHHH VISAGE 'FACE'' ***** >XK
1010 FOR 1=1 TO 150:NEXT I,T >VQ 1320 SYMBOL 165,14,14,15,26,25,57,1 ,>CN «HH CARTE*(4) ».«
1020 LOCATE 1,1:PRINT IV$CHR»(212) I >FB ,3 1610 SYMBOL 188,255,129,134,137,151 ;>NN
V»; 1330 SYMBOL 166,81,49,241,209,81,97 >HH ,148,184,184
1030 LOCATE 40,1:PRINT IV$CHR«l213) >GR ,193,65 1620 SYMBOL 189,255,179,77,254,73, 1 ;>LE
IV»! 1340 SYMBOL 167,152,143,129,130,129 ,-NA 78,150,104
,159,225,255 1630 SYMBOL 190,255,129,97,81,185,7 >HX
1040 PLOT 17,129,1:DRAW 622,129:DRA M 1350 SYMBOL 168,3,129,1,1,0,0,0,255 >BA 7,13,45
H 622,385:DRA« 17,3B5:DRAW 17,129:P 1640 SYMBOL 191,182,177,166,163,176 >NT
EN 2 1360 SYMBOL 169,65,129,1,1,129,65,3 >FA ,176,144,136
1050 PAPER o:PEN 3 : AZ«="BLUE":AZ1 >LV 3,255 1650 SYMBOL 192,19,133,82,149,19,8, >F6
Ï="CARDS" 1370 '******#*#*#*****+**#*+***#*#* ,'YD 36,24
1060 X=3:Y=B:B=33 >LG **»«»*»»**»**» 1660 SYMBOL 193,205,5,205,85,153,25 ;GJ
1070 FOR S=l TO 12:S0UND 1,15+B >Xfl 1380 ' lllllliun FLEURS CARTEX2) >YE ,17,33
l ll l l l l l lllin 1670 SYMBOL 194,136,132,135,133,132 >NR
1080 LOCATE X+S,Y:PRINT CHR«(32)AZ* >DT 1390 SYMBOL 170,255,131,132,136,155 >NM ,152,224,255
,172,165,164 1680 SYMBOL 195,0,92,62,128,96,31,0 >EM
1090 LOCATE B-S,Y:PRINT AZ1*CHR*(32 >EF 1400 SYMBOL 171,255,0,152,108,236,9 >KP ,255
) 8,178,172 1690 SYMBOL 196,65,65,65,129,129,11 >HC
1100 SOUND 1,450-SlNEXT >RG 1410 SYMBOL 172,255,1,1,1,1,1,1,1 >ZU 3,9,255
1110 PEN 2:F0R 1=1 TO 6 >PY 1700 '#*******#**♦******##**#*****# >YA
1120 LOCATE 15,15-I:PRINT STRINGJU >HB 1420 SYMBOL 173,191,145,147,141,133 >NL HlimmillHlIH
2,45) ,136,136,140 1710 '«HHHHH MODULE IIIH I I I II I II I >YB
1130 LOCATE 15,16-I:PRINT STRINGK1 >P0 1430 SYMBOL 174,68,196,69,58,34,195 >EB ♦»♦ CARTEK5) *****
2, 32) : NEXT ,2,2 1720 SYMBOL 197, 255, 128, 191 , 162, 165 >NP
1140 T»=". (ENTER). . DESSINS.. (T).. TE >YU 1440 SYMBOL 175,1,145,169,197,229,9 >KN ,170,180,169
XTES.":T=LEN(T*)\2:F0R Z=l TO LEN(T 3,165,169 1730 SYMBOL 198,255,36,72,144,32,64 >JG
*) 1450 SYMBOL 176,132,133,134,148,140 >NJ ,128,128
1150 PEN 3:L0CATE 20-T+Z,15:PRINT M >PL ,132,132,255 1740 SYMBOL 199,255,131,133,137,145 >NA
27
,161,193,131
1750 SYMBOL 200,146,164,200,144,160
,192,128,255
1760 SYMBOL 201,255,128,128,128,126
,128,128,128
1770 SYMBOL 202,5,9,17,33,65,129,12
.9,65
17B0 SYNBOL 203,129,130,132,136,144
,160,193,255
1790 SYMBOL 204,6,9,16,32,64,128,0,
255
1800 SYMBOL 205,33,17,137,69,35,17,
9,255
1810 ' *****************************
*******************
1820 '**»*»** OISEAU **************
*»* CARTE»(6> *****
1830 SYMBOL 206,255,128,128,128,128
,131,128,128
1840 SYMBOL 207,255,0,112,136,164,1
32,68,68
1850 SYMBOL 208,255,1,1,1,1,1,1,1
1860 SYMBOL 209, 12B, 128, 128, 129, 129
,130,130,130
1870 SYMBOL 210,68,132,132,100,84,6
6,69,34
1880 SYMBOL 211,1,1,1,1,1,1,1.129
1B90 SYMBOL 212,131,129,128,128,128
,128,128,255
1900 SYMBOL 213,61,128,249,39,36,68
,132,255
1910 SYMBOL 214,65,161,81,105,21,11
,1,255
1920 ' *****************************
**************»*#**
1930 '»»*»*»* CIBLE HHHHHMHI
H CARTE» (7) *****
1940 SYMBOL 215,255,128,128,128,143
,140,138,137
1950 SYMBOL 216.129,129,129,129,129
,0,0,0
1960 SYMBOL 217,255,1,1,1,241,49,81
,145
1970 SYMBOL 218,248,0,0,0,0,0,0,248
1980 SYMBOL 219,255,255,255,255,255
,255,255,255
1990 SYMBOL 220,31,0,0,0,0,0,0,31
2000 SYMBOL 221,137,138,140,143,128
,128,128,255
2010 SYMBOL 222,0,0,0,129,129,129,1
29,129
2020 SYMBOL 223,145,81, 49,241, 1,1,1
,255
NM
NE
>EP
*
>DT
FB
>YC
>YD
NE
>JU
>zc
>NT
>HC
>ZZ
NF
iSb
6F
>YE
>YF
NB
>6E
•EA
m
m
,'ZP
m
>6N
,EJ
^2030 ' miiiiininiiinnnmnn
*******************
2040 '»*****» DAMIER I HH I IIIHIH
*»« CARTE» (8) *****
2050 SYMBOL 224,255,240,240,240,143
,143,143,143
2060 SYMBOL 225,255,240,240,240,15,
15,15,15
2070 SYMBOL 226,255,241,241,241,15,
15,15,15
2080 SYMBOL 227,240,240,240,240,143
,143,143,143
2090 SYMBOL 228,240,240,240,240,15,
15,15,15
2100 SYMBOL 229,241,241,241,241.15,
15,15,15
2110 SYMBOL 230,240,240,240,240,143
,143,143,255
2120 SYMBOL 231,240,240,240,240,15,
15,15,15
2130 SYMBa 232,241,241,241,241,15,
15,15,255
2140 'hih h iiihi ihiuhhhiih
«miinim i inii »
2150 ' M************** COURONNE ***
***** CARTE»(9! ***
2160 SYMBOL 233,0,0,0,0,0,0,0,4
2170 SYMBOL 234,0,8,8,62,8,8,8,8
2180 SYMBOL 235,0,0,0,0,0,0,0,16
>XJ
MG
>JV
>JA
>HB
>JV
>JR
m
>JG
>KL
>XK
>¥A
m
ïH
>Y6
>YK
FG
2190 SYMBOL 236,6,3,0,0,0,5,9,17
2200 SYMBOL 237,8,235,62, 2B, 28, 73
47,85
2210 SYMBOL 238,48,224,0,0,0,80,200 >W
,68
2220 SYMBOL 239,17,51,6,3,1,1,0.0 >ZE
2230 SYMBOL 240,42,255,170,255,0,25 >HJ
5,255,0
2240 SYMBOL 241,68,230,176,224,64,1 >GX
28,0,0
2250 SYMBOL 248,128,64,32,16,8,4,2, >CC
1
2260 SYMBOL 249,129,66,36,24,24,60, >HH
126,255
2270 SYMBOL 250,1,2,4,8,16,32,64,12 >BF
8
2280 'M*************************** >YE
*******************
2290 •»*****»****» SABLIER ******** >YF
***** CARTE* (10) **
2300 SYMBOL 242,1,2,4,8,16,32,64,12 >BA
8
2310 SYMBOL 243,255,126,60,24,24,36 >HX
,66,129
2320 SYMBOL 244,128,64,32,16,8,4,2, >BE
1
.2330 SYMBOL 245,129,67,39,31,31,39, >8Y
'67,129
2340 SYMBOL 246,129,195,231,255,255 M
,231,195,129
2350 SYMBOL 247,129.194,228,248,248 ;>NC
,228,194,129
2360 'm*************************** >YD
*******************
2370 'M********* DEMON lllll l l ll >YE
nui CARTEKUt M
2380 SYMBOL 251,48,192,0,3,4,0,0,0 >AT
2390 SYMBOL 252,24,5,2,132,40,40,40 >DQ
,40
2400 SYMBOL 253,128,0,0,0,0,0,0,0 >ZK
2410 SYMBOL 254,5,5,4,2,1,1,3,12 >VX
2420 SYMBOL 255,149,168,16,0,5,0,71 >DH
,32
2430 SYMBOL 100,74,164,72,8,16,16,3 >EY
2,64
2440 SYMBOL 101,0,0,0,4,6,5,4,5 >XM
2450 SYMBOL 102,0,0,15,16,32,64,208 >DU
72
2460 SYMBOL 103,0,0,128,66,38,26,82 >EA
,138
2470 '***#************************* >YF
*******************
24B0 *********** HOMME HHHHrtH CA >ÏS
RTES»(12J *********
2490 SYMBOL 90,0,0,0,0,0,0,0,56 >XL
2500 SYMBOL 91,124,130,170,130,146, >JH
68,56,16
2510 SYMBOL 92,56,29.29,15,14,4,0,0 >BQ
2520 SYMBOL 93,255,255,255,126,124, >L6
60,124,254
2530 SYMBOL 94,0,128,192,224,224,11 >KP
2,112,112
2540 SYMBOL 96,1,1,1,1,1,3,7,15 >XZ
2550 SYMBOL 97,239,199,199,199,199, >NB
199,199,199
2560 SYMBOL 98,80,0,0,0,0,0,0,128 >ZJ
2570 '**»»***»»*»******»»*********» >Y6
*******************
2580 PLOT 1,1, 3: DRAW 1,398: DRAW 590 >RL
,398: DRAW 590,1
2590 G=2:D=6:H=2:B=6:F0R 1=1 TO 6:8 >TY
OSUB 4750: NEXT
2600 6=2:D=6:H=8:B=12:FOR 1=1 TO 6: >UL
GOSUB 4750:NEXT
2610 6=2:D=6:H=14:B=18:FOR 1=1 TO 6 >VK
:G0SUB 4750:NEXT
2620 B=2:D=6:H=20:B=24:FOR 1=1 TO 6 >VE
:G0SUB 4750:NEXT
2630 PEN 3:TIT»="BLUE CARDS":FOR 1= >YF
1 TO LEN(TIT*):LOCATE 40,6+I:PRINT
MID«(T1T*,I,1):NEXT
,2640 PEN 1:B=0:PRINT CMR»(22ICHR»(1 :>EX
28
2650 FOR L«i TO 6 >CK
2660 LOCATE 3+B,l : PRINT L : B=B+6 >ZA
2670 NEXT >L6
2680 PRINT CHR*(22)CHR*(0)j >VE
2690 B=0;FOR L=l TO 6:L0CATE 3+B.7 >AD
:PRINT 6+L:B=B+6 :NEXT
27ÛO B=0:FOR L»l TO 6:L0CATE 3+6,13 >BD
:PRINT 12+L:B=B+6:t£XT
2710 B=0:FOR L=l TO 6:L0CATE 3+B, 19 >CJ
iPRINT 18+L:B=B+6!NEXT
2720 WlND0Wt2,i,37,25,25:PAPER»2,l: >TQ
CLS»2:PEN#2,3
2730 CAR*(1)=CHR»(161)*CHR*1162)+CH >JC
RJII63I
2740 CARTE» 1 1 ) =CHR* ( 164 I +CHR* (1 65) + >LG
CHR*U66)
2750 CAR1*(1>=CHR*(167)+CHR»U68)*C >KQ
HR»(1691
2760 CAR*(2)=CHR«(170)+CHR*(171)tCH >JG
R$(172)
2770 CARTE*(2)=CHR*1173)+CHR*U74>* >ll
CHR$(175)
2780 CARl*(2)=CHR*(176)tCHR*(177)+C )KV
HW11781
2790 CAR*(3)=CHR«(179)tCHR$(180)tCH >JK
R»(1B1I
2800 CARTE*(3)=CHR*(182)+CHR*(183)» ;>LF
CHR*(184)
2810 CARlt(3)=CHR*(185)tCHR*(186)+C >KP CAR» (Z ) =STR IN6* (3, 32 î : CAfilt IZ ) =STRI
HR*(1B7) j N6»(3,32):NEXT:
2820 CAR*(4)=CHR*(188)+CHR*(1B9)+CH )JA j 3100 IF CH0IX=1 THEN CARTE* (1) ="FIN
R»(190) ■:CARTE*(2)="RAT K :CARTE«(3)="S0U":C
2830 CARTE*(4)=CHR*(191)+CHR*U92) + ,>LK ARTE* (4) ="MQU" : CARTE* (5) ="BQN" : CART
CHRX193) E*(6>= - MAL":CARTE*(7)="GAI":CARTE*(
2840 CAR1*14)=CHR*(194)+CHR*(195!*C >KU 8)="P0U":CARTE*(9)="SON";CARTE*U0l
HR*(196) ="TIR":CARTE*(11!="SAC":CARTE*(12)=
2850 CAR*(5)=CHR*(197)+CHR*(198)+CH >JP ' "MAC"
R«H99) j 3110 carts*(24)=carte*(12>:car*(24)
2860 CARTE*(5)=CHR*(200)+CHR*(201)+ >LX j =car*(12):carl*(24)=carl*(12)
CHRK202) ' 3120 I=1:FQR 11=13 TO 24:car*(M)=car
2870 CAR1*(5)=CHR*(203)+CHR*(204)*C >JC ' *U):carl*(M)=carl*(I):CARTE*(M>=CA
HR*(205> RTE*(I):I=1+1:NEXT
2880 CAR*(6)=CHR*(206)+CHR*1207>+CH >JP j 3130 REh
R*(208)
2890 CARTE*(6)=CHR*(209)+CHR*<210)* >LZ
CHRV2U)
2900 CARl*(6)=CHR«(212)+CHR*(213)tC >JX
m» (214)
2910 CAR*(7)=CHR*(215)*CHR*1216)+CH >JJ
R*(217)
2920 CART£*(7)=CHR»<218)+CHR*(219)+ >LD
CHR*(220)
2930 CAR1*(7)=CHR*(221)+CHR*(222)+C >JB
HR»(223)
2940 CAR*(8)=CHR*(224)+CHR*(225)+CH >JN
R»(226)
2V50 CARTE*(8)=CHR*(227)*CHR*(228!+
CHR*(229>
2960 CAR1*(B)=CHR*(230)*CHR*(231!+C
HR»(232)
2970 CAfi*(9)=CHR*(233)*CHR*(234)+CH
R»(235l
2980 CARTE*<9)=CHR*(236)*CHR*1237)+
CHR*(23B>
2990 CARI* (9)=CHR* (239) +CHR* I240I+C
HR*(241)
3000 CAR*(10)=CHR*(242!+CHR*(243)*C
HR*(244)
3010 CARTE* ( 10) =CHR* (245) +CHR* (246)
+CHR*(247)
3020 CAR1*U0)=CHR*(248I+CHR*(249> +
CHR*(250)
3030 CAR*(ll)=CHR*(101)*CHR*il02m:
HR*(103)
3040 CARTE»(1!)=CHR*(254)+CHR*(255)
+CHR*(100)
3050 CARl*(lll=CHR*(251)+CHR*(252>+
CHR*(253)
3060 CAR* ( 12) =CHR* (90) +CHR* (91 ) +CHR
*(137)
3070 CARTE*(12)=CHR*(92)+CHR*(93)»C
HR*(94)
3080 CARl*(12)=CHR»(96)*CHR»(97)tCH
R*(98)
3090 IF CH0IX=1 THEN FOR Z=l TO 24:
3140 REM NELAGE LES CARTES
3150
3160 CLS»2:PEN#2,2
3170 L0CATE#2,4,2:PRINTt2, u UN MOMEN
T, JE MELANGE LES CARTES."
3180 FOR S=l TO 24
3190 RANDOMIZE TIME
3200 CH(S)=INT(RND*24)*1
3210 L=l
3220 FOR R=l TO S
3230 IF CH(S)=CH(S-L) THEN 3190
,3240 L=L*1
3250 NEXT R,S
3260 PRINT CHR*(22)CHR*(0);
3270 CLS*2:PEN»2,0
3280 PEN»2,2:L0CATE»2,2, 1:FRINT#2, "
ESSAI";STRING*(-<ES>1),"S");ES;")K
";:PEN#2,0:PRINT»2, "CARTE A RETOURN
ER :";
3290 PEN#2,2:INPUT#2,"",N*
3300 N=VAL(N*I
3310 IF N<1 OR N>24 THEN GOSUB 4710
: GOTO 3270
3320 N=VAL(N*): IF Nil OR N>24 THEN
GOSUB 4710 : GOTO 3270
3330
3340 IF N=l THEN x=3:y=4
3350 IF N=2 THEN x=<?:y=4
3360 IF N=3 THEN x=15:y=4
3370 IF N=4 THEN x=21:y=4
3380 IF N=5 THEN x=27:y=4
1390 IF N=6 THEN x=33:y=4
3400 IF N=7 THEN x=3:y=10
3410 IF N=B THEN x=9:y=10
3420 IF N=9 THEN x=15:y=10
3430 IF N=10 THEN x=21:y=10
3440 IF N=ll THEN x=27:y=10
3450 IF N=12 THEN x=33:y=10
3460 IF N=13 THEN x=3:y=16
3470 IF N=14 THEN x=9:y=16
3480 IF N=15 THEN x=15:y=16
3490 IF N=16 THEN x=21:y=16
3500 IF N=17 THEN x=27:y=16
3510 IF N=18 THEN x=33:y=16
3520 IF N=19 THEN x=3iy=22
3530 IF N=20 THEN x=9:y=22
3540 IF N=21 THEN x=15:y=22
3550 IF N=22 THEN x=21:y=22
3560 IF N=23 THEN x=27:y=22
3570 IF N=24 THEN x=33:y=22
3580 C=CH(N)
3590 IF CARTE*(C>=" - THEN GOSUB 471
: GOTO 3270
3600 IF N=NN OR NN=N THEN GOSUB 471
: GOTO 3270
3610 X1=X:Y1=Y
3620 REM
3630 REM ♦»**♦** AFFICHAGE DES CART
ES **#**#*#
3640 REM
3650 PEN 1
3660 LOCATE x,y-l:PRINT IV*CAR*(C)I
V*
3670 LOCATE x,y:PRINT W*CARTE*(C)I
V*
3680 LOCATE x,y+l:PRINT IV*CAR1*(C)
IV*
3690 REM
.3700 REM HHHHH» ENTRER LES CARTES
■MG
>vx
m
>PQ
>YB
RJ
>RT
TM
>TL
>TV
-TU
TE
•TH
iUJ
■'UC
>UL
>UK
>UJ
>UT
>UY
>ux
>w
>uv
■UJ
UH
UN
•un
>IM
>uv
EH
>m
.•BE
>AC
>U
>AE
,GD
>FV
.66
>8J
>AK
,>GZ
29
Hum
1
3710 REM
>AC
3720 CLS#2:PEN#2,0
M
3730 PEN#2,3:LXATE#2,2,1:PR1NT#2,"
■>EJ
ESSAI";STRIN6*<-(ES>1),"S");ES;")»(
■;:PEN#2,0:PRINT#2, "CARTE A RETOURN
ER :"j:PEN #2,3
3740 INPUT#2,"",NN*
>NB
3750 NN=VAL(NN»)
>LK
3760 IF NN<1 OR NN>24 THEN GOSUB 47
>NZ
10: GOTO 3700
3770 NN=VAL(NI«): IF NN<1 OR NN>24
>CZ
THEN GOSUB 4710:GOT0 3700
37B0
■Zfi
3790 IF NN=1 THEN x=3:y=4
>TV
3B0O IF NN=2 THEN x=9:y=4
.TU
3810 IF NN=3 THEN x=15:y=4
>UP
3820 IF NN=4 THEN x=21:y=4
.•UN
3830 IF NN=5 THEN x=27:y=4
>ux
3B40 IF MN=6 THEN x=33:y=4
uw
3850 IF NN=7 THEN x=3:y=10
>UR
3860 IF NN=8 THEN x=9:y=10
>UA
3870 IF NN=9 THEN x=15:y=10
>VX
3880 IF NN=10 THEN x=21:y=10
m
3890 IF NN=11 THEN x=27:y=10
>VA
3900 IF NN=12 THEN x-33:y=10
-VP
3910 IF NN=13 THEN x=3:y=16
>VH
3920 IF NN=14 THEN x=9:y=16
'M
3930 IF NN=15 THEN x=15:y=l6
>vc
3940 IF NN=16 THEN x=21:y=16
■VB
3950 IF NN=17 THEN x=27:y=16
•m
3960 IF NN=18 THEN x=33:y=16
m
3970 IF NN=19 THEN x=3:y=22
m
3980 IF NN=20 THEN x=9:y=22
>VH
3990 IF NN=21 THEN x=15:y=22
>vc
4000 IF NN=22 THEN x=21:y=22
VG
4010 IF NN=23 THEN x=27:y=22
•VQ
4020 IF NN=24 THEN x=33:y=22
>Vf
4030
>XK
4040 COCH(NN)
>VB
4050 IF N=NN OR NN=N THEN GOSUB 471 >«L
0:S0T0 4170
4060 IF CARTE»(CC)="" THEN GOSUB 47 >NK
10 :GOTO 3700
4070 REM
,'AC
4080 REM ******* AFFICHER 2EME CAR >KK
TE *********
4090 REM
>AE
4100 PEN 1
>FE
4110 LXATE x,y-l:PRINT IV*CAR»(CC
■eu
IV»
4120 LOCATE x,y:PRINT IV$CARTE«(CC
;hc
IV»
4130 LOCATE x,y+l:PRINT IV»CAR1»(X >HF
)IV*
4140 FOR T=l TO 1000:NEXT
>TV
4150 IF CARTE»<C)=CARTE»(CC) THEN C >ZD
M*\
ARTE*(C)="":CARTE$(CC)="":SC=SC*1:E ¥
S=ES+1:G0SUB 4570 : C=0:CC=0:NaJ:NN
=0: IF SC=12 THEN 4300 ELSE 3270
4160 REM >AC
4170 REM MHHtiHM REFERMER FENE >PW
TRE ***********
4180 REM >AE
4190 PEN 3 >GF
4200 LXATE x,y-I:PRINT STRIN6*(3,1 >HV
43);
4210 LXATE x,y:PRINT STRING«(3,143 >FE
);
4220 LXATE x,y*l:PRINT STRIN6»(3,1 >HV
43);
4230 LXATE xl,yl-l:PRINT STRING»(3 >KY
,143);
4240 LXATE xl,yl:PRINT STRING»(3,1 >H0
431;
4250 LXATE xl,yl+l:PRINT STRING*(3 >KY
,143);
4260 PEN hGOSUB 4670 >PJ
4270 ES=ES+1: IF SC=12 THEN 4300 >YB
4280 N=0:NN=0:C=0:CC=0:GOTO 3270 >AY
4290 REM >AG
4300 REM ********** FENETRE SCORE F >RL
INAL ************ .
4310 REM >ZK
4320 HlND0H#3,4,34,5,13:PAPERt3,l:C >RR
LS#3:PEN#3,3
4330 a$=CHR»(150)+STRIN6*(29,154)+C >KX
HR»(156)
4340 LXATE 13,1, 1:PRINT#3, a»; >YJ
4350 FOR T=l TO 7 >DH
4360 L0CATE#l,l,l+T:PRINTt3,CHR*(14 >ZJ
9)TAB(31)CHRt(149);
4370 NEXT >LF
4380 a*=CHR»(147)+STRING»(29,l54)+C >KF
HR*(153>
4390 LXATE#3,l,9:PRINT#3,af; >YD
4400 IF REDES THEN REC=ES >VN
4410 LXATE#3, 11, 3:PRINT#3, "RESULTA >KQ
TSl'j
4420 LXATE #3, 4,5:PRINT#3, "RECORD >EY
:";REC;" ESSAIS.. :";ES
4430 LXATE #3,4, 7:PRINT#3, "UNE AUT >JB
RE PARTIE (0/N) "CHRK143)
4440 R»=UPPER«(INKEY*):IF R*="" THE >HK
N 4440
4450 IF R»="0" THEN CLS:SC=0:ES=1:G >JM
OTO 540
4460 IF R*="N" THEN CALL >RV
4470 IF R*<>"0" OR R$<>"N" THEN 444 >AE
4480 REM 'AH
4490 REM ********** MOTIF SONORE I >ZV
k NTRO *******************
4500 REM >AA
4510 SOUND 1,239, 150,5,2:SOUND 2,23 >ND
9,5O,5,2:S0UND 2, 190, 100, 5, 2: SOUND
4,239, 100, 5, 2: SOUND 4,159,50,5,2
4520 SOUND 1,239, 100. 5, 2: SOUND 2,17 >HE
9,10O,5,2:S0UND 4,142,100,5,2
4530 SOUND 1,239, 100,5,2:S0UND 2,19 JGT
0, 100,5, 2:S0UND 4,95,100,5,2
4540 SOUND 1,190,100,5,2:S0UND 2,11 >GJ
9, 100, 5, 2: SOUND 4,80,100,5,2
4550 RETURN ;-FH
4560 REM >AG
4570 REM »*♦**»**»* MOTIF SONORE TR >A6
OUVE *******************
4580 REM >AJ
4590 ENV 2,10,1,1,7,-1,5,1,0,20 >»U
4600 ENT 1,30,1,1,1,-30,5,30,1,1,1, >LT
-30,5,30,1,1
4610 ENT 4,10,-1,1,30,1,1,10,6,2 >XM
4620 FOR S0N=1 TO 2 >MV
4630 SOUND 1,119, 100, 4, 2, Il SOUND 2, >NM
95,100, 4,2,1:S0UND 4,80,100,4,2,1
4640 NEXT >LF
4650 RETURN >FJ
4660 REM >AH
4670 REM ****************** REPONS >AV
E FAUSSE *****************
4680 REM >AK
4690 SOUND 1,110, 10, 5: SOUND 1,100,1 >YU
0,5:SOUND 1,90,10,5:S0UND 1,180,10,
5:S0UND 1,70,10,5:SOUND 1,60,10,5:8
OUND 1,50, 10, 5: SOUND 1,40,10,5
4700 RETURN >FE
4710 REM >AD
4720 REM ************* ERRE >LH
UR ***************
4730 SOUND 1, 10, 10, 5: SOUND 1,20,10, )VU
5: SOUND 1,170,10,5
4740 RETURN >FJ
4750 LI*=CHR*(150)+STRING»(3,154)*C >LA
HR*(156)
4760 LI1*=CHR*U47)+STRING*(3,154) + >LF
CHR$(153)
4770 REM >AK
4780 REM ************* FENETRES PAG ;>ZQ
E JEU *******************
4790 REM >BB
4800 NIND0N#1,G,D,H,B:PAPER#1,3:CLS >PT
tl:PEN#l,0
4810 PRINT#1,LI»CHR»(149)TAB(5ICHR« >DF
(149)CHR$(149)TAB<5)CHR»I149)CHR»(1
49ITAB(5)CHR»(149)LI1«;
4820 6=D+2:D=6+4 >GD
4830 RETURN >FJ
4840 REM ************** FIN DU LIST >ZN
IN6 ********************* •
30
COULMELO
JEU DES MELANGES DE COULEURS
Jean REINGOT
Si vous savez ce que vous obtenez en mélangeant du
rouge avec du bleu, ou du bleu avec du jaune ou encore
du jaune avec du rouge : c'est que le mélange des cou-
leurs n'a plus aucun secret pour vous.
Pourtant, ce qui vous esf proposé ici n'est pas aussi sim-
ple et vous trouverez certainement qu'à partir du niveau
cinq, c'est de moins en moins éviaent.
L'auteur a jugé bon d'avertir les utilisateurs que la vision
des couleurs est assez différente selon les individus. Il
peut donc être utile dans certains cas de modifier les cou-
leurs de base (bleu et jaune).
10 ' minmiMHiBiniimtiiiiini
>LA
HH
20 '***
CDULMEL0
>LB
***
30 '***
Jean Reingot
■LC
**+
40 '***
Version 464.664.6128
LD
VU
50 '***
Novembre 1987
>LE
♦**
60 '***
DALTONIENS S ABSTENIR
:lF
*#*
70 ' ***+**#»»****#***♦*************
■LG
****
80 '***
INITIALISATIONS
>LH
*#*
90 '*#*#********************♦***#**
>LJ
HM
100 CLS
:-TF
110 HIND0W1, 2,28,17, 24
>RN
120 HINDOU», 30, 39,21, 24
>Rfl
130 HIND0Ht3,31, 37,18, 18
■PC
140 t=0:
K=0
'■ED
150 ENV 1,1,15,6,15,-1,8
>qv
160 ENV
2,1,15,5,5,-1,10,10,-1,5
m
170 D1H «(2, 481, 11*12,5), 12*12,51,
■ou
13*12,5)
,p*(2,5)
180 INK 0,0:BORDER 0:PAPER
m
190 PRINT CHR*(22)+CHR*(1>
-UL
200 INK
1,6: INK 2,2: INK 3,24
..ijp
210 FOR
i=l T0 3
>vc
220 c»(l
l=CHR*(15)*CHR*(l)
MJH
230 p*(l,i)=c*(l)+CHR*U43)
240 p*(2,i)=c*(i>+CHR*(207)
250 NEXT
260 FOR 1=1 T0 2:F0R i=l T0 3
270 ll*(i,j)=p*(i,j)tp»(i,jl
280 12»(i,j)»U*(i,j)+ll»li,j]
290 13*(i,j)=ll*(i,))+p*(i,i!
300 NEXTiNEXT
310 FOR i=l T0 2
320 p*(i,4)=p*(l,l)
730 p*(i,5)=p*(i,2!
340 ll*(i,4)=ll«(i,ll
350 U*(i,5)=ll*(i,2)
360 12*(i,4)=12*(l,l)
370 12*(i,5)=12*(i,2)
380 13*(i,4)=13*(i,l)
390 13»(i,5)=13*(i,2)
400 NEXT
410 GOSUB 1760:G0SUB 2930
420 CLS:G0SUB 2860
430 '#**#*»*****#*♦*##**********#**
#**♦
440 '*«« MENU
»#*
450 ' *#*******#*#**#*♦*****♦******#
460 L0CATE 4,4:PRINT"I1 faut trouve
r les deux plaques"
470 L0CATE 4,5:PRINT"qui en s'addit
îonnant donneront"
480 LOCATE 4,6:PRINT"le nodele."
>CD
•EC
■>U0 T 490 LOCATE 4,9:PRINT"I1 suffit de t >FL
>UU aper la lettre"
>EC 500 LOCATE 4, 10:PRINT"de la plaque >NT
>UW choisie. "
>VZ 510 PEN 3:L0CATE 10,13:PRINT "Nivea >WT
>x« u l Facile"
>WA 520 LOCATE 10,14:PRINT "Niveau
>BA Plus difficile"
>VC 530 LOCATE 10,15:PRINT "Niveau
>MC Assez difficile"
>MF 540 LOCATE 10, 16: PRINT "Niveau 4 >VD
>NN Difficile"
>NR 550 LOCATE 10, 17:PRINT "Niveau 5 >KD
>NT Dur"
>NW 560 LOCATE 10, 18: PRINT "Niveau 6 >CG
>NX Pour champions"
>NA 570 LOCATE 10, 19:PRINT "Niveau 7 >NR
>DK Casse-tete"
>TJ 580 LOCATE 10,20:PRINT "Niveau 8 >TD
>ML Super-as"
590 PEN 2:L0CATE 12,22:PRINT "Votre >XF
>RH choix <1 a 8>
600 r*=INKEY*:IF r*="" THEN 600 >XF
>RJ 610 r=VAL(r*):IF r<l OR r>8 THEN PR >YK
INT CHR*(7):60T0 600
>RK 620 CLS:0N r GOSUB 670,890,1110,132 >YV
0,1540,1760,1980,2200
>NB 430 BOSUB 2860: GOSUB 2870: GOSUB 242 >QC
0: GOSUB 2460
>HT MO ' IIIIIIHIIIIIIIIIIIIIIIIIIIIII >TA
****
>DH I 4.50 '♦«* FIGURES NIVEAU 1 >TB
31
660 ' iinmiiiiiiiiimmmmii >TC
670 FOR i=l T0 2 >«E
6B0 FOR 1=1 T0 4:«(i,j)=12»(i,l):N >EE
EXT
690 FOR j=5 TO 8:«U, j)»12*U,2):N >EQ
EXT
7M FOR 1=9 TO 12:«<i,])=12»li,3): >FT
ICXT
710 FOR 1=13 TO !4:«ll,j)=12*<i,l) >6Y
:NEXT
720 FOR j«15 TO 18:f»(l,j)=12»(i,2) >66
:NEXT
730 FOR j=19 TO 22:«(i, ]>=12»<i,3) >6H
:NEXT
740 FOR J«Z3 TO 24:tt(i,j)=12»(i,l) >BD
:NEXT
750 FOR j=25 TO 28:($(l, j)=U$(i,l) >RN
+ll*(i,2):NEXT
760 FOR j=29 TO 32:«<i, j)=ll*(i,2> >RQ
+ll»(i,3):NEXT
770 FOR j=33 TO 36:(*(i, j)=U*(i,3) >RP
+ll»(i,l):NEXT
780 FOR j=37 TO J8lft(i,j)«U*<i,l) >RN
+ll*(i,2):NEXT
790 FOR j=39 TO Ml«(i, j)«ll*<i,2) >RR
+ll*(i,l):NEXT
800 FOR j«41 TO 42:f»<i, j)=ll*(i,2> >RE
tll*(i,3):NEXT
810 FOR 1=43 TO 44:«(i, j)=ll»(i,3> >RK
+ll»(l,2):NEXT
820 FOR i=45 TO 46:«<i, j)«U*(i,3) >RP
+ll«(i,l):NEXT
830 FOR i=47 TO 48:(»(i, j)=U*(i,l> >RV
+ll$(i,3):NEXT
840 NEXT >EH
850 RETURN >ZJ
860 '*************#****#*********** >TE
****
870 •*♦» FIGURES NIVEAU 2 >TF
***
880 ' immiiiiiiiiinwmiiim >TG
HH
890 FOR i=l TO 2:F0R j=0 TO 2 >UD
900 A(i,l*j<4MM(itW>*llt(i,J* >CC
2)
910 F$(i,2+i*4>=lt*(i,j+l)+ll«<i,j+ >CE
2)
920 F*(i,3+]*4)=ll$(i,]+2)+llKi,i+ >CJ
3)
930 F$(i,4+j«4)=ll»<i,j+2>+ll*(l,i+ >CL
31
940 F*(i,13+j»4)=ll»(i,]+l)+ll*(i,i >DV
+2)
950 F$(i,14+]»4)=ll*(i,j+l)+ll«(i,j >DX
+2)
<>
960 F*(l,15+]«4)=ll*<i,i+3)+ll»(i,j >DA
+1)
970 F*(i,16+i»4)=ll*(i,j+3)+ll«(i,j >DC
+1)
980 F*(i,25+j*4)=ll*(i,j+l)+ll*(i,j >DC
+2)
990 F$(i,26+i*4)=lU(i 1 itll+U*(i,j >DE
+2)
1000 F»(i,27+i«4>=ll»(i,j+l)+ll*(i, >EY
j+3)
1010 F*(i,2B+j«4)=ll*(i,j+l)+ll»(i, >EA
j+3)
1020 F«(i,37+j*4)=12Kl,j+l) >VE
1030 F*(i,38+j»4)=12*<i,j+l) >VG
1040 F»(i,39-tj«4l=ll»(i,j+2l+ll*(i, >EG
j+3)
1050 F»(i,40+]»4)=ll«(l,j+2)+ll»(i, >EZ
j+3)
1060 NEXT: NEXT >HF
1070 RETURN >FB
1080 ' nHimimnumiinnm i H >YB
1090 '«« FIGURES NIVEAU 3 >YC
à
1100 'm************************** >XE
1110 FOR i=l TO 2 >BC
1120 FOR j=l TO 4 STEF 3:f*(i,j)=12 >KF
»(i,2):NEXT
1130 FOR j=5 TO 8 STEP 3:«(i,j)=12 >HP
*(i,l):NEXT
1140 FOR 1=9 TO 12 STEP 3l«(i,j)«l >NJ
2*(i,3):NEXT
1150 FOR j=2 TO 3:M(i,j)=12*U,l>: >FD
NEXT
1160 FOR 1=6 TO 7:f»(i,j)=I2$(i,3): >FQ
«EXT
1170 FOR j=10 TO ll:«(i,j)=12*(i,2 >HC
ItNEXT
1180 FOR jalî TO 16:M(i,j)=p*(i,2> >AR
+ll»(i,l)+p«(i,2l:NEXT
1190 FOR j=17 TO 20:«(i,j)=p»(i,l) >AR
♦ll*(i,3)+p*(>,l):NEXT
1200 FOR i=21 TO 24;f»(l,])=p»(i,3> >AK
+ll*(i,2)+p»(i,3):NEXT
1210 FOR i=25 TO 34 STEP 3:f*(i,])= >PY
12*<i,l):NEXT
1220 FOR j=26 TO 35 STEP 3:«(i,j> = >PC
12»(i,2):NEXT
1230 FOR j=27 TO 36 STEP 3: +*<i, J>= >PG
12«(i,3):NEXT
1240 FOR i=37 TO 40:«(i,i)=p*(i,l) >JE
+p»<i,2)tp»<i,3)+p»<i,l>:NEXT
1250 FOR 1=41 TO 44:«(i, j)=p»(l,2) >JF
♦p»(i,3)+p*(i,l)+p«(i,2):NEXT
1260 FOR i=45 TO 48:f*(i, j>=p*(i,3> >JR
tp*(i,l)tp»(i,2)*p*(i,3):NEXT
1270 NEXT >LB
1280 RETURN >FE
1290 ' nnimiimminiiiiiiim >YE
**"
1300 •« FIGURES NIVEAU 4 >X6
»#*
1310 ««««««M»»*»»»»»»"* >XH
#*«♦
1320 FOR 1=1 TO 2;F0R j=0 TO 2 >VK
1330 f»(i,l+l»4)=Il«(i,j+l)+p*(i,l+ >NY
2)+p»(l, J+31
1340 «(i,2+j«4)=ll*(i,j+l)+p*(i,j+ >NA
2)+p*(i, j+3)
1350 «(i,3+j+4)«13*(i,i+2)+p»(i,j+ >CL
3)
1360 <«(l,4+i»4)=12»(l,j+3) >UJ
1370 -F»(i, 13+J»4)=12*(i, j+1) >V6
1380 f»(i,14+j«4)ap»(i,J+l)+l3Mi,j >DZ
f2)
1390 «(i,15+j«41=p«(i,i+l)+p»(i,j+ >PF
2)+ll»(i, j+3)
1400 <«(i,16+j«4)=p*(l,]+l)+p»(l,i+ >PY
2>+ll»(i,l+3)
1410 f$<i,25+j«4)«t3$(i,j+l)+P*<i,i >DV
♦2)
1420 -F*<i,26+j*4)=p*<i, j+l)+ll*(i, i >PB
+2)+p*(l,j+3)
1430 «(i,27+l«4>=p$(i,l+l)+ll*U,j >PD
+2)+pt(i, j+3)
1440 M(i,28+j*4l=p»<i,j+2)+13»(i,i >DD
+3)
1450 M(i,37+j»4)=p»(i,j+l)+13»li,j >DC
+2)
1460 f*(l,38+j*4)=p»(l,l+2)+ll»(i,j >PK
+3)+p*(i, j+2)
1470 »<i,3ftJ«4)«p$(i,j+2)+ll*(i,j >Ftl
♦3)+p«(i,j+2)
1480 f$(i,40+j»4l=13»(l,i+2)+p$li,j >DZ
+1)
1490 NEXT:NEXT >LC
1500 RETURN >EK
1510 '♦#♦*****«♦»**+*++**♦+*♦*+**** >XK
1520 t« FIGURES NIVEAU 5 >YA
***
1530 ' imiiimimiiiinnmnn >YB
****
1540 FOR i=l TO 2:F0R j=0 TO 2 >VP
1550 ■f*(t,l+j*4)=ll*(l, j+l)+p*(i, J+ >NC
2)+p*(i, j+3)
1560 **(i,2+j*4)=p*(l, j+l)+ll«(i, j+ >NE
2)+p*U, j+3)
1570 f$(i,3+i*4)=p*(i,i+ll+ll«(i,j+ >N6
2)+p»(i,i+3)
1580 f»(i,4+j*4)=p*(i,j+l)+p*(i,j+2 >NJ
l+ll«(i,j+3)
1590 f«(l,13+]«4)=12*(i,j+l) >VL
32
■^^■^M^B
.,<?
1600 f*(i,14+j*4l=p»(i, j+l)+13*(l, ]
+2)
1610 f»<i, 15+j*4)=13*(i, j+2)+p*(i, j >DY
+3)
1620 ■f*(î,16+j*4)=12*(i, j+3) >VK
1630 f*(i,25+j»4)=ll«(i,j+l)+p»(i,j >PD
*2)+P*(i,j+3)
1640 f*(i,26+j*4)=p*(i, j+H+ll$(i,i >PF
+2>+p*(i, j+3)
1650 f$(i,27+j»4)=ll*<i,j+2)+ll$(i, >EL
i+3)
1660 f»(i,28+j*4)=l3«(i,j+3)+p$(i,j >DG
+1)
1670 tt(i,37+j»4)=p*(i,j+l>+ll»U,j >PL
+2)+p*(i, j+3)
1680 f*(i,38+j»4)=ll*(i, j+2)+ll*(i, >ER
j+3)
1690 f$(i,39+j*4)=p»(i,3+2)+U*li, j >PQ
*3!+p*ii,j+l)
1700 f$(i,40+j*4)=p*(i, j+2)+p*(i, j+ >PY
3)+ll»(i, j+1)
1710 NEXTiNEXT >HH
1720 RETURN >FD
1730 ' muimiitmmnuiHiiii >YD
1740 '«t FI6URES NIVEAU 6 >YE
H«
1750 #*♦*+*****♦**+*********»***** >YF
♦#♦*
1760 FOR 1=1 T0 2:FDR j«0 T0 2 >VU
1770 f»(i,l+j«4)=ll»(i,J+l)*ll*li,j >D7
+2)
1780 f*(i,2+j*4î=p*(i, j+2) +p* ( l , j+1 >YK
>+p»(l,j+3)+p*(i,j+2)
1790 f*li,3+j*4)=ll«<i,j+2)+ll»tl,j >DZ
+31
1800 f»(i,4+j*4)=pSli,j+2)+ll»(i,j+ >ND
3)+p*(i,j+ll
1810 «(l,13+j«4)=p»(l,j+l)+p*(i,l+ >PA
2>+ll»(i,j+3)
1820 M(i,14+j*4)=p*(i,j+l>+ll*(i,j >PC
+2l+p*(i,j+3)
1830 f»(i,15tj»4)=+ll$(i,j+l)+p*(i, >»
j+2)+p*(i,j+3)
1840 «ll,16+j*4)=p*(l,j+2)+p*(!,j+ >P6
ll+ll«(i,J+3)
1850 f$(i,25+j*4>=p*(i, j+l)+13*(i, j >DD
+2)
1860 «<l,26+j»4l=ll*(i,)+l)+p«(i,j >PK
+2>+p«(i, j+3)
1870 f»(i,27+j»4)=p$(i,j+l)+p»(i,j+ >PM
2)+ll*(i,j+3)
1880 f»(i,2B+j«4)=13*<l,j+2)+p*(i,j >DH
+3)
1890 f»(i,37+j*4)=13»(i,j+l)+p*(i,i >DL
+2)
1900 f*(i,38+j«4)=p»(i, j+2)+p*(i, j+ >P8
LB
>FH
l)+ll*(i,j+2)
1910 t"»(i,39+j«4)=ll«(i,j+2)+p*(i,j >PL
+3>+p*(i, j+2)
1920 f»(i,40+j«4)=p*(l,j+2)+13*li,j >DA
+3)
1930 NEXT:NEXT
1940 RETURN
1950 ' #*♦****♦**♦****♦**♦*****»**** >YH
1960 'm FIGURES NIVEAU 7 >YJ
***
1970 '##»*******»♦♦*+****#♦*«♦**+*# >YK
+**♦
1980 FOR i=l T0 2:F0R 1=0 T0 2 >VY
1990 f»(i,l+j*4)=p»(i,j+l)+p*<i,j+2 >YL
l+p$(i,j+l)+p»(i,j+3)
2000 f»(i,2+j»4)=p*(i,j+2)+p$(l,j+l >YU
)+P*(i,j+3)+p*(i,j+l)
2010 <$(i,3+j»4)=p*(i,j+l)+p*(i,j+2 >YW
) +p» ( i , j+1 ) +p* C i , j+3)
2020 f«(l,4+j+4)=p$(i,j+2)+p*!l,j+l >YY
)+p*(i, j+3)+p*(i, j+1)
2030 f»(i,13+i«4)=p»<i,j+l)+p*U,j+ >ZE
3)+p»(i,j+l)+p*(i,j+2)
2040 f»(l,14+j*4)=p*(i,j+3)+p«(i,j* >2S
l)+p*(l,j+2)+p$(i,j+l)
2050 <»(i,15+j»4)=p»(i,j+l)+p*(l,j+ >ZJ
3)+p*(i,j+l)+p*(i,j+2)
2060 f*(i,16+j*4)=p*(i,j+3)+p$(i,l+ )ZL
l)+p»<i,j+2)+p»(i,j+l)
2070 «(l,25+j*4)=p*(l,j+t)+p»(l,J+ >ZL
2)+p«(l,j+l)+pVi,j+2)
2080 f»(l,26+j«4)=p»(i,j+2)+p*(i,j+ >ZN
l)+p$(i, j+2)+f$(i, j+ï)
2090 f*(i,27+j»4)=p$(i,j+l)+p*(i,j+ >ZT
3)+p*(i,j+l)+p*(i,j+3)
2100 «(i,28+j*4)=p*(i,j+3)+pt(i,j+ >ZK
l)+p»(i,j+3)+p$(i,j+l)
2110 <*(i,37+j*4)=p$(i,j+l)+p$(i,j+ >ZL
3) +p* ( i , j+1 ) +p* ( i , j+3)
2120 «(i,38+j»4)=p*(i,j+3)+p«(i,j+ >ZN
l)+p*(i,l+3)+p*(i,j+l)
2130 f»(i,39+j*4)=p«U,i+l)+p«<l,j+ >ZN
2)+pi(i,j+l)+p«(i,j+2)
2140 f*(i,40+j*4l=p*(l,j+2)+p$(i,j+ >ZF
l)+p*(i, j+2)+p*(i, j+1)
2150 NEXT:NEXT >H6
2160 RETURN >FC
2170 ' immmilii i iiiHiiHiilil >YC
»**♦
2180 '»«♦ FIGURES NIVEAU 8 >YD
**♦
2190 '«»»*♦♦»»«**»»«««»»*»»*»« >YE
**♦*
2200 FOR i=l T0 2:F0R j=0 T0 2 >VH
2210 tt<i,l+ji4)=p*(i,j+l)+p*(i,j+3 >YH
l+P»(i,j+l)+p*(i,j+2)
2220 f»(l,2+j+4)=p»(i,j+2)+p»(i,j+l >YZ
)+p*(i,j+2)+p*(i,j+3)
2230 f*<i,3+j»4)=p*(i, j+3)+p*(i , j+2 >YC
)+p»(i,j+3)+p*(i,j+l)
2240 <»(i,4+J*4)=p»(l,J+l)+p«(i,j+3 >YE
)+P»li,j+2)+p*(i,j+3)
2250 f * < i , 13+ j*4) «p» (i , j+1 ) +p« ( i, j+ >ZJ
2)+p$(i,j+ll+p*(i,j+3)
2260 «(i,14+j»4)=p*(l,j+2)+p«(i,j+ >Z«
3)+p$(l,j+2)+p»(i,j+l)
2270 f*(i,15+j»4)=p«(i,j+3)+p*(l,j+ >ZQ
ll+p$(i,j+3)+p«(l,j+2l
2280 «(l,16+j»4)=p*(i,j+l)+p»(i,]+ >Zfl
3)+p»(l,j+2)+p«(i,j+l)
2290 **(l,25+J»4)=p*(i,J+3l+p»(i,j+ >ZR
ll+p*(i,j+2)+p*(l,j+l)
2300 f»(i,26+j+4)=p»(l,J+ll+p«(i,j+ >ZK
2)+p»(i,]+3)+p$(i,j+2)
2310 f*(l,27+j»4l=p*(l,J+3)+p*(l,J+ >ZN
l)+p»(i,j+2)*p*(i,j+3)
2320 fi(l,2B+j«4>=p*ll,j+2)+p*(l,]+ >ZP
3)+p$(i,j+l)+p»(i,j+2)
2330 «<i,37+j»4)=p$(i,j+3)+p*(i,l+ >ZQ
2l+p$(l,j+l)+p*(i,j+2)
2340 f*(i,38+j«4)=p«(i, j+2)+p*li, j+ >ZT
1 ) +p* < i , j+2) +p* ( i , j+3)
2350 M(i,39+j«4)=p«(i,j+3)+p*(i,j+ >ZW
2)+p*(i, j+3)+p*(l, j+1)
2360 f*(i,40+j*4)=p»«i, j+l)+p*(i, j+ >ZH
3) +p* ( i , j+1 ) +p» < i , j+3)
2370 NEXTiNEXT >LA
2380 RETURN >FG
2390 ' UHIDIIimillllHII I IHH I >YG
****
2400 'M* AFFICHAGE FIGURES >XJ
***
2410 '***♦***************#+****+*** >XK
2420 BORDER 10+r:F0R i=0 TQ 5:F0R j >CH
=1 TO 4:LÛCATE 4+l»6,l+j:PRINT «H
,j+i«4):PEN 1:L0CATE 3+i«6,4:PRINT
CHR»(65+il:L0CATE 3+l*6,5:PRINT CHR
*(243):NEXT:SOUND 1, 120-1*5, 10, 15,1
:NEXT
2430 FOR 1=0 TO 5:F0R j=l TO 4:L0CA >KL
TE 4+i*6,6+j:PRlNT f»(l, (j+i«4)+24>
:PEN liLOCATE 3+i*6,9:PRINT CHR»(71
+i):L0CATE 3+i*6,10:PRINT CHR$(243)
:NEXT:SOtKD l,75-i«5,10,15,l:l€XT
2440 PAPERI3,3;PEN«3,2:CLS#3 >W>
2450 RETURN >FE
2460 LOCATE 4,14:PRINT"N0DELE >VX
VOTRE DESSIN"
2470 PEN 2:10CATE 30,15:PRINT "Nlve >LT
au:"ir
2480 L0CATE*2,l,l:PRINTt2, "Score: >FH
33
2490 L0CATE#2,l,3:PRINTt2, n Sur: >ED
2500 IF t=5 THEN t=0:sc=0: SOUND 1,6 >EV
0,20, 15,1: SOUND 1,47,20, 15, 1:S0UND
1, 40,30,15, 1:F0R tt=0 TO 500:NEXT:6
OTO 420
2510 imilllllilliliilillllililii >YA
*****
2520 '*»» AFFICHEE MODELE >YB
»**
2530 'H**»*»»**»*******»*********» >¥C
*****
2540 Hl=INT(RND*12)tl >FK
2550 t=t+l:RANDOMZE TIME >VX
2560 H2=INT(RND*12)+1:IF H2=H1 THEN >6B
2560
2570 PRINT»1, CHFt*l22)+CHR»U> >XZ
2580 FOR 1=1 TO 4:L0CATEU,4,i:PRIN >VP
Tll,«(l,(hl*4)-4*i):LKATEtl,4,i:P
RINTtl,«(2, (h2*4)-4+i):NEXT:S0UND
1,63,40,15,1
2590 ' iniin i mnminiiiiiiim >¥J
*****
2600 m REPONSE ET AFFICHABE >YA
***
2610 l ll l l llll i millll»"'""" .>YB
*****
2620 FOR i=l TO 2 >BK
2630 rS(i)=INKEY*:IF r«(l)=" - THEN >EH
2630
2640 R*(I)=UPPER*(R»(I)> >TU
2650 IF r*(i)<"A" OR r*(i)>"L" THE >A6
N PRINT CHR$(7):S0TO 2630
2660 GOSUB 2890 >YF
2670 PEN*l,2:L0CATE#l,18,i*2:PRINT# >LF
l,r»(i)
2680 NEXT >LH
2690 L0CATE»1,6,7:PRINT»1, "Confire >PQ
2 0/N"
2700 r$=INKEY$: IF r*="" THEN 2700 >ZQ
2710 r«=UPPER»(r«):IF r«="0" THEN 2 >DH
750
2720 PRINT CHR$(22)+CHR*(0) >VG
2730 IF r»="N" THEN SOUND 1,200,120 >E0
,15,1:PEN»1,0:FOR i=l TO 2:L0CATE»1
,lB,i*2:PRINT»l,CHR$(143):NEXT:L0CA
TE#1,6,7:PR1NTI1,STRING*(13,143):G0
TO 2620
2740 PEN#1,2:PRINT CHR*(22)+CHR*(1) >CT
2750 al=ASC(r»(l)>-64:a2=ASC(r«(2>> >EN
-64
2760 FOR i=l TO 4:L0CATE«l,20,i:PRI >QH
NTI1 , M ( 1 , (al*4) -4+i ) : LCCATEH1 , 20, i
:PRINTI1 , « (2, (a2»4) -4+i ) : NEXT
2770 L0CATEI2,7,3:PRINT#2,t >NZ
2780 PR1NT#1,CHR*(22>+CHR«(0> >XJ
2790 IF (al=hl AND a2=n2)0R(a2=hl A >LC
ND al=h2) THEN 2800 ELSE GOTO 2810
2800 SOUND 1,90,20,15,1:301» 1,60, >XP
15,15,l:LOCATE #3,2, 1:PRINTI3,"JUST
E" : sc=sc+l : L0CATEt2, 7, 1 :PRINT»2, se :
L0CATE»1, 2, 7:PRINT»1, "Appuyez sur 1
a udi"r6";CALi- lraiofCESll'CLS9jiBuT
2500
2810 60SUB 2880 >YB
2820 SOUND 1,400, 40,15,, ,7:L0CATE » >PB
3,2,l:PRINT#3,"FauK":PEN»l,3:L0CATE
tl,2,2:PRINT»l,CHR$(64+hl):LXATE»l
,2,4:PRINT#t,CHR«(64+h2>:PENtl,l:L0
CATE#1,2,7:PRINT*1, "Appuyez sur la
barre" : CALL fcBBIB: CLSH1 : aS»3: GOTO
2500
2830 '**#*********************»**** >YF
2840 '*** DESSIN CADRES >YG
*+♦
2850 '»*****#**»******************* >YH
»#**
2860 PLOT 0,0,1:DRAN 639,0:DRAtt 639 >UQ
,399:DRAN 0,399:DRAN 0,0:PLOT 2,2:D
RAW 637,2:DRAN 637,397:DR6M 2,397:D
RAi 2,2:RETURN
2B70 PLOT 0,220: DRAW 639, 220: PLOT >EL
,222:DRAN 639,222:RETURN
2880 PLOT 30,78,3:DRAW 50,7B:DRAN 5 >TP
0,130:DRAN 30,130:DRAW 30,78:RETURN
2890 PLOT 286,78,3:DRAN 306,78:DRA« >AC
306,130:DRAN 286,130:DRAN 286,78îR
ETURN
2900 '******#*****#**************** >YD
PRESENTATION >YE
' ***************************** >YF
2910
***
2920
2930 FOR i=l TO 37 STEP 4 >QE
2940 FOR J=l TO 24 STEP 1 >QZ
2950 LOCATE i,j:PRINT «<l,j HOD 12 >ED
+11
2960 SOUND 1, INT(RND»B)*5+60,5,10,1 >CZ
2970 NEXT: NEXT >L6
2980 FOR i=l TO 37 STEP 4 >RB
2990 FOR j=l TO 24 STEP 1 >QE
3000 LOCATE i,]:PRINT **(2,j+12) >ZY
3010 NEXT:INK 1,INT(RND*25)*1:INK 2 >Bd
,INTIRND*25)tl:INK 3,INT(RND*25)+1:
SOUND l,INT(RND*8)+5+120,5,15,l:NEX
T
3020 g«(l)="1110111010101OO0U11101 >KJ
1101000111"
3030 n» (21 =" 10001010101010001010101
34
0001000101"
3O40 q«(3)="10001010101010001010101 >KF
îooioooior
3050 q$(4l="10001010101010001010101 >KS
0001000101"
3060 <)• (5) ="11 101 1 101 1 101 1 101010101 >KN
1101110111"
3070 INK 0,0:1»! 1,5: INK 2,20: INK 3 >DG
,15
3080 FOR 1=1 TO 5:F0R ]=1 Tû 33: IF >RC
HID*(q*(i> , j,l)="l" THEN PEN 0:LOCA
TE 3*j,10+i:PRINT CHR$( 143): SOUND 1
,400,5,15,2:S0UND 1,0,10,0,0
3090 NEXT: NEXT >LA
3100 FOR 1=1 TO 30: INK 1,INT(RN0*26 >JC
):INK 2,INT(RND*26):INK 3,INT(RND*2
5>:S0UND 1,800,5, 15, Il SOUND 1,0,10,
15:NEXT
3110 INK 0,0: INK 1,6: INK 2, 11: INK 3 >DC
,24
3120 LOCATE 7,20:PRINT "JEU DES «EL >AH
ANGES DE COULEURS"
3130 FOR tt=0 TO 5000:NEXT >UE
3140 '***************************** >YA
****
3150 '*** EXPLICATIONS >YB
***
3160 '***#**#**#******************* >YC
****
3170 CLS:BORDER 13:PEN 1:G0SUB 2860 >HE
:LOCATE 2,3:PRINT"Les couleurs se n
elangent:"
3180 p»(l,4)=p»(l,l):p»(2,4)=p«(2,l >BK
)
3190 FOR k=0 TO 2:F0R 1=1 TO 4:F0R >BR
j=l TO 4:L0CATE 5+i,5+j+k*6:PRINT p
$(l,k+l):NEXT:NEXT:NEXT
3200 FOR k=0 TO 2:F0R i=l TO 4:F0R >DL
j=l TO 4:LXATE 13*l,5+j+k*6:PRINT
pt(l,k+2 ):NEXT:NEXT:NEXT
3210 FOR k=0 TO 2:F0R i=l TO 4:F0R >TK
j=l TO 4:L0CATE 2Hi,5*j+k*6:PRINT
p*(l,k+l ):LOCATE 21*i,5+j*k*6:PRIN
T p»(2,k*2):NEXT:NEXT:NEXT
3220 FOR 1=0 TO 2:L0CATE ll,7+i*6:P >QX
RINT -+":NEXT
3230 FOR i=0 TO 2:L0CATE 19,7+i»6:P>QB
RINT "=":NEXT
3240 PEN 2:L0CATE 27,6:PRINT"rouge+ >WQ
bleu=":LOCATE 31,8:PRINT"violet":L0
CATE 27,12:PRINT"bleu+jaune=":L0CAT
E 31,14:PRINT"vert":L0CATE 27,1B:PR
INT" jaune*rouge=" :L0CATE 31 , 20: PRIN
T"orange"
3250 LOCATE 2,23:PRINT "Appuyez sur >AT
une touche"
3260 CALL «BB18:CLS:RETURN >WX#
JEUXINFORMATIQUES
ET COMMUNICATION
DOSSIER :
NAISSANCE
D'UN JEU
MICROPROSE :
EN FRANCE ET
A L'ETRANGER
PLUS DE 60 JEUX
PASSES AU
DANC D'ESSAI
M 1871 6 20.00 F
3791871020002 00060
LfoV.'fllT
»■»*»,
a
^rw
MENSUEL - N° 6 - MARS 1988
SE DETENDRE ET S'INSTRUIRE
PAR LA LECTURE
MEBAHBIIZ
AMSTAR
Mensuel informatique
vendu en kiosque et
par abonnement.
Présentation de jeux
et nouveautés sur Amstrad .
Tous les mois un concours i
CPC
Mensuel informatique
dédié aux ordinateurs
Amstrad
MEGAHERTZ
MAGAZINE
Mensuel de
communication amateur
actualités, informatique
technique.
VIVEZ LA MICRO EN FAMILLE
Toutes nos revues
sont vendues en kiosque.
ARCADES
Mensuel Informatique et
communication vendu en
kiosque et par
abonnement.
Présentation de jeux,
nouveautés, sur toutes
machines, consoles de
jeux et minitel. Concours
mensuel permanent.
CPCHS
Numéro hors-série
comprenant uniquement
des listings sur Amstrad.
Paraît tous les deux mois.
PCOMPATIBLES
MAGAZINE
Mensuel informatique
consacré aux ordinateurs
compatibles. Actualité,
technique, listing.
ASTROLOGIE
PRATIQUE
Mensuel d'astrologie (et
non de voyance). Outre
l'information, les thèmes
développés touchent à
la pratique sérieuse de
l'astrologie.
Si vous souhaitez recevoir un exemplaire de presse, envoyez 20 F en timbre ou chèque à :
Editions SORACOM - La Haie de Pan - 35 1 70 BRUZ
Live Music
Archive
Librivox
Free Audio
Metropolitan Museum
Cleveland
Museum of Art
Internet
Arcade
Console Living Room
Open Library
American
Libraries
TV News
Understanding
9/11